Eine Procedure auf 22 Buttons...

[Sir Rufo]

Zitat von Klaus01:

Guten Abend,

jeder Butten hat eine Caption darin ist der Name enthalten.
Alternativ kannst Du auch den Button.Tag mit entsprechenden Werten
belegen - dann brauchst Du nicht extrahieren.

Grüße
Klaus

Jeder Button hat von Haus aus einen eigenen Namen, der sich auch bei einer Lokalisierung nicht ändert.
Gut, Tags würden sich auch nicht ändern, ist aber doch sehr mühsam, jedem Button auch noch ein Tag zu vergeben.
(... und welches Pferd springt höher als es muss ...)

Auf jeden Fall würde ich den ausführenden Code nicht direkt im OnClick-Ereignis ausführen, sondern in einer eigenen procedure mit entsprechenden Parametern. Das OnClick-Ereignis stellt dann nur noch die Parameter anhand des benutzten Buttons zusammen und ruft dann die procedure auf.

Dadurch schafft man auch die empfohlene Trennung von Ein-/Ausgabe und Verarbeitung.

cu

Oliver

Delphi-Quellcode:

procedure TForm1.Button1OnClick( Sender : TObject );
begin
  if Sender = Button1 then MachWas;
  if Sender = Button2 then MachWasAnderes;
end;

Diese procedure muss dann natürlichem im OI jedem Button zugewiesen werden (siehe links bei Ereignisse)