Checkbox laufend prüfen

[littleshiva]

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]