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:
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