Question

Delphi RadioButton问题

我有一个GroupBox，里面有4个RadioButton，还有1个BUTTON，我现在选中第1个RadioButton了，我希望当我点击BUTTON时，RadioButton都恢复到原始没有倍选中的状态，请问该怎么办啊~请前辈赐教
3楼的方法我试了，不行啊，是不是写错了？

Answer 1

我推荐你使用
Standard
中的
RadioGroup
在Items
中设置每个项目的
名称
而确认哪个单选项的选中则使用
ItemIndex
属性
比如第一个选项
则
ItemIndex
为0
其它以此类推。然后在Button1Check
事件中
只需将
RadioGroup
中的ItemIndex
属性
设置为-1
即可完成重置。
无需一个一个地设置RadioButton
的Check属性.
如果楼主坚持使用
RadioButton的话
就如楼上所言。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for I:=0 to GroupBox1.ControlCount-1 do
if GroupBox1.Controls[i] is TRadioButton then
(GroupBox1.Controls[i] As TRadioButton).Checked:=false;
end;

Answer 3

为什不用RadioGroup呢？增加4个items，更方便！
procedure TForm1.Button1Click(Sender: TObject);
begin
radiogroup1.ItemIndex:=-1;
end;

Answer 4

button.onclick{
radiobutton1.enabled=false;
radiobutton2.enabled=false;
radiobutton3.enabled=false;
radiobutton4.enabled=false;
}