Also, nochmal in Ausführlich:
- Du machst eine globale Variable vom Typ TLabel
Delphi-Quellcode:
var
Form1: TForm1;
CurrentLabel: TLabel;
Dann ersetzt du in den gazen Prozeduren Label1 durch CurrentLabel also z.B.:
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
begin
CurrentLabel.Caption:= CurrentLabel.Caption + '4';
end;
Dann musst du in OnFormCreate (Im Designer auf die Form doppelklicken) noch ein
CurrentLabel := Label1;
machen.
In den Knöpfen für Plus, Minus usw. machst du jetzt ein
CurrentLabel := Label5; // Oder was halt dein zweites Label ist
Und fertig
