TObject.Name ????

[TOC]

Hi!

Es gibt in TComponent ein Feld das extra für solche Sachen gedacht ist und das aber leider viele Leute gar nicht kennen : "TComponent.Tag". Dieser Tag ist einfach eine Integer-Zahl die man in seinem Objekt belegen kann und dadurch ist es ganz einfach und sehr schnell mehrere Komponenten zu unterscheiden.

Nummeriere Deine TKomponenten im Object-Inspector einfach in ihren Tag-Feldern ab 1 in aufsteigender Reihenfolge durch. Dann könnte Deine OnClick-Prozedur etwa so aussehen:

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
begin
  // Abfragen welcher Knopf gedrückt wurde und entsprechende Aktion ausführen
  Case TComponent(Sender).Tag of
    1 : Label1.Caption:='Es wurde Knopf 1 gedrückt!';
    2 : Label1.Caption:='Es wurde Knopf 2 gedrückt!';
    3 : Label1.Caption:='Es wurde Knopf 3 gedrückt!';
  End;
  // Egal welcher Knopf gedrückt wurde immer ausführen
  Beep;
end;

So mache ich das immer in meinen Programmen wenn mehrere Komponenten dieselbe Methode aufrufen was den Vorteil bietet das dort Dinge gemacht werden können die bei allen Komponenenten geschehen sollen und auch Aktionen die abhängig von der Komponente selbst sind und sich unterscheiden.

Gerade wenn eine Anwendung zum Beispiel innerhalb einer Schleife irgendwelche Objekte Erzeugt ist es praktisch (und einfach) den Zählerwert in das Tag-Feld der Komponente zu schreiben.

Grüsse von TOC!