RadioButton

[matinebi]

چطور زمانی که تعداد زیادی RadioButton دارم در یک حلقه بفهمم که کاربر کدوم یکی رو تیک زده

[Felony]

همین 3 روز پیش یه نمونه کد در همین رابطه ( CheckBox ) برای یکی از دوستان گزاشتم .

[matinebi]

دوست عزیز اون کدی که قرار دادید برای چكباكسها بود که میشه چند تا چک باکس همزمان تیک خورده باشه اما من برای رادیو باتن میخوام که همون طور که میدونید فقط یک گزینه رو میشه انتخاب کرد
با تشکر

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
Temp:boolean;
Check:Array [1..10] of Boolean;
begin
for i:=0 to ComponentCount-1 do begin
if Components[i].ClassType=TCheckBox then begin
Temp:=TCheckBox(Components[i]).Checked;
Check[i]:=Temp;
end;
end;
end;

[Hsimple11]

FindComponent رو جستجو کنید.

[Felony]

با یکم حوصله میتونستید همین کد رو همونطور که میخواین تغییر بدید :

var
i:integer;
Check:Boolean;
begin
for i:=0 to ComponentCount-1 do begin
if Components[i].ClassType=TRadioButton then begin
if TRadioButton(Components[i]).Checked then
Button1.Caption:=IntToStr(i);
end;
end;
end;