Delphi Бутон компонент е прост команден бутон. Delphi бутон команден бутон се използва за изпълнение на командите на програмата с помощта на събитие манипулатор на компонента OnClick.
Същият процесор за работа с няколко събития TButton компоненти (и не само TButton, но дори и на други видове компоненти). За да се определи дали дадено събитие е компонент трябва да бъдат обработени, като се използва вградения тип променлива Sender TObject. посочване на обекта, която е предизвикала събитието. За да илюстрираме тази функция, помислете проста процедура, която определя бутона натиснат.
Нека да създадем манипулатор за BUTTON1. и за BUTTON2 и Button3 в инспектора на обекта в раздела Събития, изберете събитието OnClick. и от падащия списък изберете как е изглеждал Button1Click манипулатор. Сега той се справя натиснете трите копчета.
процедура TForm1.Button1Click (Sender: TObject);
започвам
Form1.Caption: = (подателя като TButton) .Caption;
приключи;
Дизайн Sender като TButton ви позволява да работите със свойствата на обекта, като подател с бутона Properties. Веднага различи бутона като обект в обичайния оператор сравнение:
ако (подателя = Button1) след това
Form1.Caption: = Button1.Caption;
Понякога събитията се инициират дори компоненти от различни типове. В този случай, проверете какъв тип компонент задействал събитието, може да бъде, както следва:
ако (подателя е TButton) след това
Form1.Caption: = 'бутона';
Свързани статии