求高手解决一下intraweb IWRadioButton1.Checked的值都false

Question

procedure TIWForm1.IWButton2Click(Sender: TObject);
begin
     if IWRadioButton1.Checked then
   WebApplication.ShowMessage('选中')
   else
    WebApplication.ShowMessage('没选中')end;
结果都是  没选中求高手解决一下

Answer 1

delphi什么版本？
iw什么版本？

Answer 2

win7
delphi7 
Intraweb 9.0.15 

Answer 3

delphi7
Intraweb 9.0.42
没问题啊

Answer 4

建一个空白页面实验一下？unit Unit1;interfaceuses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes,
  IWCompButton, IWCompRadioButton, Controls, IWVCLBaseControl,
  IWBaseControl, IWBaseHTMLControl, IWControl, IWHTMLControls;type
  TIWForm1 = class(TIWAppForm)
    rb1: TIWRadioButton;
    btn1: TIWButton;
    procedure btn1Click(Sender: TObject);
  public
  end;implementation{$R *.dfm}
procedure TIWForm1.btn1Click(Sender: TObject);
begin
  if rb1.Checked then
  begin
    WebApplication.ShowMessage('check');
  end;  end;initialization
  TIWForm1.SetAsMainForm;end.