Ich weiss ja nicht ob dir der Tipp von Chimaira geholfen hat, aber warum versuchst du nicht die Idee mit den Radiobuttons zu adaptieren?
Bsp: Die Radiogroup unsichtbar machen (Eigenschaft 'Visible' auf 'false')
Dann kannst du daraus jederzeit die gewählte Rechenart auslesen
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject); // [+]
begin[color=darkred][/color]
RadioGroup1.ItemIndex:=0;
end;
procedure TForm1.Button2Click(Sender: TObject); // [-]
begin
RadioGroup1.ItemIndex:=1;
end;
procedure TForm1.Button3Click(Sender: TObject); //[*]
begin
RadioGroup1.ItemIndex:=2;
end;
procedure TForm1.Button4Click(Sender: TObject); // [:]
begin
RadioGroup1.ItemIndex:=3;
end;
procedure TForm1.Button5Click(Sender: TObject); // [=]
begin
case RadioGroup1.ItemIndex of
0: Label1.Caption:=FloatToStr(StrToFloat(edit1.text) + StrToFloat(edit2.text));
1: Label1.Caption:=FloatToStr(StrToFloat(edit1.text) - StrToFloat(edit2.text));
2: Label1.Caption:=FloatToStr(StrToFloat(edit1.text) * StrToFloat(edit2.text));
3: Label1.Caption:=FloatToStr(StrToFloat(edit1.text) / StrToFloat(edit2.text));
// Der Fall ItemIndex = -1 wird nicht behandelt, da ja keine Rechenart ausgewählt ist
end;
RadioGroup1.ItemIndex:=-1;
end;