求高手解决一下intraweb IWRadioButton1.Checked的值都false
procedure TIWForm1.IWButton2Click(Sender: TObject);
begin
if IWRadioButton1.Checked then
WebApplication.ShowMessage('选中')
else
WebApplication.ShowMessage('没选中')
end;
结果都是 没选中
求高手解决一下
[解决办法]
建一个空白页面实验一下？
unit Unit1;
interface
uses
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.
