Компонент на Delphi бутон

КомпонентътDelphi Button е прост команден бутон. Командният бутонDelphi Button се използва за изпълнение на команди в програмата с помощта на манипулатора на събитияOnClickна този компонент.

Същият манипулатор може да обработва събития на няколко компонента на TButton (и не само на TButton, но дори и на компоненти от други типове). За да се определи кое събитие на компонента трябва да се обработи, се използва вградената променливаSenderот типаTObject, обозначаваща обекта, причинил събитието. За да илюстрирате тази възможност, помислете за проста процедура, която определя кой бутон е бил натиснат.

Нека създадем манипулатор на бутон за Button1 и за Button2 и Button3 вObject Inspectorв разделаEvents, изберете събитиетоOnClickи изберете манипулатораButton1Click, който се появява там от падащия списък. Сега се справя с натискането и на трите бутона.

процедураTForm1.Button1Click(Подател: TObject);beginForm1.Caption:=(SenderasTButton).Caption;край;

Конструкцията на SenderasTButton ви позволява да работите със свойствата на обекта Sender като със свойствата на бутон. Можете директно да различите бутона като обект, като използвате обичайния оператор за сравнение:

ако(Подател = Бутон1)тогаваForm1.Caption:=Button1.Caption;

Понякога събитията се задействат дори от компоненти от различен тип. В този случай можете да проверите кой тип компонент е причинил събитието по следния начин:

ако(ПодателятеTButton)тогаваForm1.Caption:='Button';

---