Zitat von
sirius:
Name ist doch von TComponent abgeleitet.
Also:
Delphi-Quellcode:
var tmp:string;
begin
tmp:=(Sender as TComponent).Name;
if ((sender is TBitBtn) and (tmp='xyz1'))or
((sender is TBitBtn) and (tmp='xyz2'))or
...
then
Stimmt, so gehts auch. Wenn die Methode auch von nicht-TComponent-Ableitungen aufgerufen wird, müsste man da allerdings noch eine zusätzliche Prüfung einbauen.
Ahja, wenn er sich nur für den Namen interessiert, kann man die Abfrage ob das Objekt ein TBitBtn ist auch weglassen
