Zitat von
sigma:
...damit ich nicht immer bei meinem Taschenrechner bei jeder zeile den quelltext schreiben muss ...
Hai sigma,
das ganze kannst Du auch ohne eine Funktion lösen. Das "Geheimniss" ist: Du erzeugst nicht für jeden Button eine eigene OnClick Methode sondern verwendest für alle Buttons die selbe. Über den Parameter
Sender erfährst Du dann welcher Button das OnClick-Egeigniss ausgelöst hat:
Delphi-Quellcode:
procedure TDemo_Form.FormCreate(Sender: TObject);
begin
Button1.OnClick := AlleButonOnClick;
Button2.OnClick := AlleButonOnClick;
Button3.OnClick := AlleButonOnClick;
Button4.OnClick := AlleButonOnClick;
end;
procedure TDemo_Form.AlleButonOnClick(Sender: TObject);
var
zahl : string;
begin
zahl := (Sender as TButton).Caption;
// Der Sender wird ausgewertet und auf ein TButton gecastet.
end;
Du musst die Zuweisung der Methode nicht im OnCreate der Form machen. Du kannst auch einfach alle Buttonsmarkieren und dann im Objectinspektor allen das selbe OnClick zuweisen.