Klasse von TObject herausfinden?

[arc]

Ich habe eine Ereignisroutine die als Parameter ein (Sender:TObject) bekommt, wie kann ich herausfinden um welche abgeleitete Klasse es sich handelt?
Ich möchte z.B. Prüfen ob es eine TButton oder eine TComboBox Komponente ist, die das Ereignis ausgelöst hat.

Ich weiß es geht ganz einfach, aber ich komme absolut nicht drauf. Danke!

[Uwe Raabe]

Delphi-Quellcode:

if (Sender is TButton) then begin
end
else if (Sender is TComboBox) then begin
end
else begin
end;

[SirThornberry]

mit "is" kannst du prüfen ob es eine Bestimmte Klasse oder ein Nachfahre davon ist. Wenn du Nachfahren ausschließen willst kannst du über Sender.Classname bzw. Sender.Class einen direkten Vergleich machen.

[arc]

Vielen Dank!