TRadioButtons auf verschiedenen Panels

[Angel4585]

Hallo,

ich habe auf meinem Formular 3 Panel auf denen jeweils ein TRadioButton liegt.
Jetzt möchte ich das von den RadioButtons immer nur eine selektiert wird.

Wenn die auf der gleichen Ebene liegen, also zB dem gleichen Panel dann isses ja einfach, einfach mit der Eigenschaft Tag, die muss bei allen drei gleich sein.

Aber wie mach ich das wenn die auf verschiedenen Panels liegen?

[Draos]

Mein Tip: Schreibe eine procedure die sich immer beim ändern eines RadioButtons aufruft und alle anderen Buttons auf false setzt.

[mx15]

Hi,
DAS geht auch weitaus einfacher
Hier ist den code den du schreiben musst:

-------------------------------------------------------------
Bei RadioButton1.(...); (oder so )
begin
radioButton2.checked:=false;
radioButton3.checked:=false;
end;

Bei RadioButton2.(...);
begin
radioButton1.checked:=false;
radioButton3.checked:=false;
end;

Bei RadioButton3.(...);
begin
radioButton1.checked:=false;
radioButton2.checked:=false;
end;
end.

----------------------------------------------------------------
Aber eigentlich denke ich, dass diese Eigenschaft (,dass
in einer Formularanwendung, egal wie viele RadioButtons
vorhanden sind IMMER nur einer ge"checked" sein kann)
gerade eben der Unterschied zwischen checkboxen und
Radio Buttons ist oder????
Sonst könntest du ja auch gleich Checkboxen anstatt
RadioButtons verwenden ...
Aber vielleicht lieg ich da aber auch falsch, und benutze RadioButtons
einfach nicht oft genug...
Naja, hoffentlich hilf dir der obengenannte Code.
Ich bin mir auch eigentlich selber nicht sicher, ob der Code richtig is
(aber ich vermute es)
Ich schau nochma nach, wenn der obige Quellcode falsch ist.


mx15

[ATSV]

der quelltext stimmt und das ganze muss ins OnClick also

Delphi-Quellcode:

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
  RadioButton2.Checked := False;
  RadioButton3.Checked := False;
end;

das dann natürlich acuh bei den anderen

[Angel4585]

Also wenn dann mach ich ne Prozedur

Delphi-Quellcode:

procedure TForm1.CheckRadioButton(RB : TRadioButton);
begin
rb1.Checked:= RB = rb1;
rb2.Checked:= RB = rb2;
rb3.Checked:= RB = rb3;
end;

Aber danke für den Tipp, so mach ichs und funzt