Ereignisbeahndlung für mehrere Buttons

**Chaoten-Joe**

Moin zusammen,

ich habe schon im Forum nachgeschaut, finde aber trotzdem nicht die Lösung zu meinem Problem. Ich habe mehrere Buttons, die via "Tag" laufend nummeriert sind. Nun möchte ich eine Ereignisbehandlungsroutine für alle Buttons anlegen, bei der jeweils eine SQL-Anweisung gestartet wird, abhängig von der Nummer des Buttons:

markieren

Delphi-Quellcode:

			 MainForm.TempQuery3.Close;

  MainForm.TempQuery3.SQL.Clear;

  try MainForm.TempQuery3.SQL.Add('SELECT Bezeichnung FROM Lager WHERE (Nummer = '+IntToStr(TJvNavPanelButton(Self).Tag)+')') except end;

  try MainForm.TempQuery3.Open except end;

Ich bekomme es weder mit Self noch FindComponent hin, den Tag des Buttons auszulesen, der gerade gedrückt wurde. Wie muss der richtige Befehl lauten?

Danke für die Hilfe und liebe Grüße
Christian

Ereignisbeahndlung für mehrere Buttons

Ereignisbeahndlung für mehrere Buttons

Forumregeln