【搞定】RadioButton使用语法**

qsc800528

如下的两个Radio，为什么我这么写，会造成死循环那？？
unit MainForm;

interface

uses
  Business.System, Business.Forms;

type
  TMainForm = class(TForm)
    GroupBox1: TGroupBox;
    rb1: TRadioButton;
    rb2: TRadioButton;
    procedure RadioButton2Click(Sender: TObject);
    procedure rb1Click(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation


procedure TMainForm.RadioButton2Click(Sender: TObject);
begin
     Dialogs.ShowMessage('rb2');
     rb1.Checked:=true;
end;

procedure TMainForm.rb1Click(Sender: TObject);
begin
    Dialogs.ShowMessage('rb1');
end;

end.

qsc800528

补充下：我是想实现如果选择了Rb2后，条件不符合就让Rb1重新获得选中状态，如果版主有新的别的方法能解决也可以。

alang

调试运行一下，就知道为什么死循环了

alang

看看是不是放到RadioGroup中了，放到group外面看看

qsc800528

是放在GroupBox中，调试过了，弹出messageBox 后会自动的再去调用rb1的Click事件，

还有一个错，如果上面的代码我把rb1的Click去掉，然后就会没有错了，但是如果在测试中间，弹出一个总在前面的模式框的话，又是死循环了，

alang兄，我用了一个笨办法把问题先跳过去，你把问题给重现下吧，给我想个解决的方法好不？

alang

4楼，放到group外面看看

alang

楼主，问题搞定没有？

Akon

由于楼主长时间未跟贴,此帖先结,有问题请开新帖.