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:

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

[grenzgaenger]

mal abgesehen, dass diese exeption behandlung verboten gehöhrt. würd ich den anderen weg gehen und nur einmal die query in einer funktion aufrufen. die verschiedenen buttons rufen dann diese funktion (mit parameter) auf. so sparst du dir dann 'n paar 100 querys zu ändern.

[DelphiKlaus]

Hey,

den Tag-Wert des Buttons bekommst Du in der Ereignisroutine durch den Parameter Sender.

Du wirst sowas in der Art wie

  (Sender as TJvNavPanelButton).Tag benutzen müssen. Voraussetzung ist, dass die Ereignisbehandlungsroutine nur von Buttons vom Typ TJvNavPanelButton aufgerufen wird. Ansonsten musst Du vorher noch den Typ prüfen:

Delphi-Quellcode:

  if Sender is TJvNavPanelButton then
    begin
     ... (Sender as TJvNavPanelButton).Tag


    end

Viele Grüße

Klaus

[Chaoten-Joe]

Super Klaus! Vielen Dank! Hat geklappt !!!