intraweb中窗体创建的问题(100分)

  • 主题发起人 主题发起人 necho_iw
  • 开始时间 开始时间
N

necho_iw

Unregistered / Unconfirmed
GUEST, unregistred user!
我在intraweb中新建了一frame,内有一些联接,并放在formmain窗体中,现有另一窗体名为formmain2,我希望点击frame中的连接从而转到formmain2.代码如下
procedure Th.manageClick(Sender: TObject);//th为frame
begin
Tformmain2.Create(Webapplication);
parent.Free;
end;
编译时总是出错,提示webapplication未声明。
而我在窗体formmain1中直接设一个联结onclick,就能正常运行。我看了一些其它的例子,也是在frame中设置却能运行,这是为什么?请高手做答!急,就快要交毕业设计了!!!
 
在你的frame的单元里,uses加入IWInit
===========
呵呵!应该用RWebApplication代替Webapplication。
因为Webapplication是TIWForm的成员,在formmain1中写Webapplication其实是
formmain1.Webapplication的简写。
 
最优秀的解决方法:
在你的Frame里面建立一个方法:
procedure TFrame.Move(AFormClass: TIWAppFormClass);
begin
TIWAppForm(WebApplication.ActiveForm).Release;
AFormClass.Create(WebApplication).Show;
end;
然后在Uses 中包含你要使用的窗体的单元.
最后,每次使用时,都调用Move(AFormClass: TIWAppFormClass);来实现
例如下面的:
procedure TFrame.N18Click(Sender: TObject);
begin
Move(TIWFormClientInfo); //系统信息
end;

procedure TFrame.N11Click(Sender: TObject);
begin
Move(TIWFormLogin); //系统登陆
end;

procedure TFrame.N19Click(Sender: TObject);
begin
Move(TIWFormTMS); //Tms Test 信息
end;
 
谢谢!!
 
后退
顶部