Checkbox laufend prüfen

[littleshiva]

Ich hab da so en Problem.

Ich will mit zwei checkboxen innerhalb einer radioboxen den wert einer Variable definieren.

Der Code sieht so aus:

Delphi-Quellcode:

If Spieler1 = 13 then
begin
If RadioButton1.Checked = true  then
 begin
 Punkte1:=1;
  end
 else
 Punkte1:=11;
end;
end;

Jetzt weiß ich nur nich, welches Ereigniss ich benutzen soll.

Also ich möchte zu jedem zeitpunkt, in dem Spieler1 =13 ist den wert der variable punkte1 verändern können.

Hoffe ihr versteht mein Problem.

[mkinzler]

Reagiere einfach auf die Änderung der RadioButtons

[hoika]

Hallo,

Zitat:

Ich hab da so en Problem.

Ich auch, ich habe es nämlich nicht verstanden ...


Mache mal ein kleines Bsp.-Projekt
oder zumindestens einen Screenshot von "RadioButton" / "CheckBoxen"


Heiko

[littleshiva]

http://666kb.com/i/bje4y8l71af8jm10j.jpg

Also so sieht das aus.

Das programm soll halt, wenn ich an den Radiobuttons was veränder, die Variable verändern.
Ich weiß aber nich mit welchem Ereigniss.

[himitsu]

Zitat von littleshiva:

Ich weiß aber nich mit welchem Ereigniss.

Schau dir einfach mal die Ereignisse an?
Oftmals gibt es sowas wie OnClick, OnChange usw.

[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.

[DeddyH]

Wenn man die Radiobuttons über die Property Items der Radiogroup definiert, kann man anschließend bequem über Radiogroup.ItemIndex prüfen, welcher Button gerade gecheckt ist.

[rollstuhlfahrer]

Zitat von littleshiva:

Delphi-Quellcode:

//[...]
If RadioButton1.Checked = true  then
//[...]

Und lass doch bitte das " = true" weg. Das ist so nämlich nicht ganz richtig. Weitere Infos hier im Forum.

Bernhard

[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]

[rollstuhlfahrer]

noch ne wünzige Frage: Du verwendest ein RadioGroup und legst darauf 2 RadioBoxen? - Ein RadioGroup macht das doch schon für dich. Nur mal nach der Eigenschaft Items suchen.

Bernhard