Компонент Delphi Button

КомпонентDelphi Button це проста командна кнопка. Командна кнопкаDelphi Button використовується для реалізації в програмі команд за допомогою обробника подіїOnClickцього компонента.

Один і той же обробник може обробляти події кількох компонентів TButton (та й не лише TButton, а й навіть компонентів інших типів). Для визначення того, подія якого саме компонента потрібно обробляти, використовується вбудована зміннаSenderтипуTObject, що позначає об'єкт, що викликав цю подію. Для ілюстрації цієї можливості розглянемо просту процедуру, яка визначає натиснуту кнопку.

Створимо обробник кнопки Button1 , а для Button2 і Button3 вІнспекторі Об'єктівна вкладціEventsвиберемо подіюOnClick, і з випадаючого списку виберемо обробникButton1Click. Тепер він обробляє натискання трьох кнопок.

procedureTForm1.Button1Click(Sender: TObject);beginForm1.Caption:=(SenderasTButton).Caption;end;

Конструкція SenderasTButton дозволяє працювати з властивостями об'єкта Sender як із властивостями кнопки. Безпосередньо ж розрізнити кнопку як об'єкт можна звичайним оператором порівняння:

if(Sender = Button1)thenForm1.Caption:=Button1.Caption;

Іноді події ініційовано навіть компонентами різних типів. У такому разі перевірити компонент якого типу викликав подію, можна таким чином:

if(SenderisTButton)thenForm1.Caption:='Кнопка';