Ok, damit sieht dein ButtonOnClick so aus oder?
Delphi-Quellcode:
procedure TForm1.ButtonAdditionClick(Sender: TObject);
begin
FAddition.Zahl1 := StrToIntDef(EditZahl1.Text, 0);
FAddition.Zahl2 := StrToIntDef(EditZahl2.Text, 0);
FAddition.Addition;
LabelErgebnis.Caption := IntToStr(FAddition.Ergebnis);
end;
Dies sollte doch eigentlich auch vermieden werden, wegen Spaghetticode.
und dann würde ich die Properties an die Edits und das Label binden und die Methode an den Button
Das Verb binden bezieht sich in diesem Satz auch auf "die Methode an den Button"
Somit entsteht in dem Form 0 Code. Es gibt nur ca 4 Zeilen externen Wire up Code.