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)