Компоненты Delphi страницы Standart

Компонент Delphi Button

   Компонент Delphi Button это простая командная кнопка. Командная кнопка Delphi Button используется для реализации в программе команд с помощью обработчика события OnClick этого компонента.

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

   Создадим обработчик кнопки Button1, а для Button2 и Button3 в Инспекторе Объектов на вкладке Events выберем событие OnClick, и из выпадающего списка выберем появившийся там обработчик Button1Click. Теперь он обрабатывает нажатие всех трёх кнопок.

procedure TForm1.Button1Click(Sender: TObject); begin   Form1.Caption:=(Sender as TButton).Caption; end;

Конструкция Sender as TButton позволяет работать со свойствами объекта Sender как со свойствами кнопки. Непосредственно же различить кнопку как объект можно обычным оператором сравнения:

if (Sender = Button1) then
  Form1.Caption:=Button1.Caption;


   Иногда события инициированы даже компонентами разных типов. В таком случае, проверить компонент какого типа вызвал событие, можно таким образом:

if (Sender is TButton) then
  Form1.Caption:='Кнопка';