如何让RadioButton单击一下就取消选中？急，在线等

Question

我有很3个RadioButton在一个GroupBox里现在，而且有很多GroupBox，这样就容易点错了，现在我只要点了就没发取消，我刚才在RadioButton的click事件中加了一些代码，想如果点错了，只要再点一下就可以取消，可是现在出现RadioButton就都没发选中了，代码如：if RadioButton1 then RadioButton1.click:=false else RadioButton1.click:=true;请大家指教，谢谢！

Answer 1

如果你的RadioButton没有关联的，怎么不用checkbox

Answer 2

没一组RB里面加一个没用的RB,点一下这个其他的不就取消了,相信你是这个意思

Answer 3

你那样写代码根本就对不了，也不可能实现
除非你去改delphi自带的类库和组件事件
你想实现功能，那就用checkbox

Answer 4

//我在Form中放了5組TRadioGroup，然後它們的Exit事件都定義為
//procedure TForm1.RadioGroup1Exit(Sender: TObject);
//當要取消的時候，只需要將該TRadioGroup的ItemIndex屬性設置為-1即可
var
  gRadioGroup: TRadioGroup;procedure TForm1.Button1Click(Sender: TObject);
begin
  gRadioGroup.ItemIndex := -1;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  gRadioGroup := TRadioGroup.Create(Self);
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
  gRadioGroup.Destroy;
end;procedure TForm1.RadioGroup1Exit(Sender: TObject);
begin
  if Sender is TRadioGroup then
    gRadioGroup := TRadioGroup(Sender);
end;

Answer 5

意思表达不是很清楚， 你为什么不直接使用RadioGroup

Answer 6

因为我要把所有的RADIO都放在一行，可是radiogroup是显示在一列的，怎么改

Answer 7

那就别用radiogroup。
用groupbox＋radiobutton控件就可以了。
位置你随便调，没有限制。

Answer 8

解决了，哎，谢谢各位了，揭贴，接分，呵呵，不过分少了点，因为我也没多少分了， fengzhengren(风筝)，这样在我的程序中不行，我是改radiogroup.columns属性的