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)
{
   Label1->Caption = Sender->ClassName();
}

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.