Zitat von
Astat:
Delphi-Quellcode:
if (Sender is TButton) then
showmessage((Sender as TButton).Name);
Aua. Wenn du mit "is" den Typ von Sender schon geprüft hast, musst du beim Casten nicht noch mal prüfen. Folgendes reicht vollkommen:
Delphi-Quellcode:
if Sender is TButton then
ShowMessage(TButton(Sender).Name);