Sprawdzanie, który komponent wywołał zdarzenie
Umieszczamy na formularzu komponenty Button, BitBtn i SpeedButton. Tworzymy dla komponentu Button zdarzenie OnClick:
Unit1.cpp |
void __fastcall TForm1::Button1Click(TObject *Sender) |
Przypisujemy to zdarzenie pozostałym przyciskom (w oknie Inspektora Obiektów dla każdego przycisku wybieramy za pomocą rozwijanej listy odpowiednią funkcję obsługi zdarzenie OnClick).
Teraz w zależności od tego, który przycisk klikniemy: Button, BitBtn, SpeedButton na etykiecie Label pojawią się odpowiednio nazwy klas komponentów, które wywołały zdarzenie: TButton, TBitBtn, TSpeedButton.