Componenta Delphi Button este un buton simplu de comandă. Butonul de comandă Delphi Button este folosit pentru implementarea comenzilor din program utilizând funcția Handler de evenimente OnClick a acestei componente.
Același manipulator poate gestiona evenimentele din mai multe componente TButton (și nu numai TButton, dar și alte tipuri de componente). Pentru a determina ce eveniment al componentei pe care doriți să îl procesați, utilizați variabila Sender încorporată de tipul TObject. Indică obiectul care a provocat evenimentul. Pentru a ilustra această posibilitate, să analizăm o procedură simplă care determină butonul pe care l-ați apăsat.
Creați butonul de buton Buton1. și pentru butoanele2 și butonul3 din Inspectorul de obiecte din fila Evenimente, selectați evenimentul OnClick. și din lista derulantă, selectați butonul de administrare Button1Click care a apărut acolo. Acum procesează apăsarea celor trei butoane.
procedura TForm1.Button1Click (expeditor: TObject);
începe
Form1.Caption: = (Expeditor ca TButton) .Caption;
se încheie;
Construcția Sender ca TButton vă permite să lucrați cu proprietățile obiectului Sender ca și cu proprietățile butonului. Distingeți direct butonul ca obiect poate fi operatorul de comparație obișnuit:
dacă (Sender = Button1) atunci
Form1.Caption: = Button1.Caption;
Uneori, evenimentele sunt declanșate chiar de componente de diferite tipuri. În acest caz, puteți verifica tipul de componentă a tipului de eveniment:
dacă (Sender este TButton) atunci
Form1.Caption: = 'Buton';