Zitat von
DelphiFan aus München:
Du erzeugst einfach für
alle gemeinsamen RadioButtons
das gleiche OnClick-Ereignis und schreibst:
Delphi-Quellcode:
If RadioButton1.Checked then Punkte1:=1;
If RadioButton2.Checked then Punkte1:=11;
If RadioButton3.Checked then Punkte1:=111;
geht zumindest bei mir.
Wenn du natürlich nur 2 Buttons hast, dann fällt die letzte Zeile weg.
Wenn ich dich richtig verstehe, sieht das dann so aus, oder?
Delphi-Quellcode:
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
If Spieler1 = 13 then
begin
If RadioButton1.Checked then
begin
Punkte1:=1;
end
else
Punkte1:=11;
end;
end;
EDIT: Kann geclosed werden, ich habs jetzt hinbekommen, habs über die einzelnen Radiobuttons gemacht nich über die Radiogroup.
Danke an alle
[edit=mkinzler]Delphi-Tag gefixt Mfg, mkinzler[/edit]