一个一般的窗体,formstyle =fsNormal,做为调用的主窗体,别个有一个重载了Create 与CreateParams 事件的窗体,做为被调用的‘子窗体’,重载事件代码如下:constructor Tformwork.Create(AOwner: TComponent; info: TLogin);
var
i:integer;
begin
LoginInfo := Info;
Inherited Create(Application);
...
end;procedure Tformwork.CreateParams(var Params: TCreateParams);
begin
inherited ;
Params.WndParent := GetDesktopWindow;
end;当在调用开启了子窗体后,调用代码如下:
var
frmCom: Tformwork;
begin
frmCom := Tformwork(TFormClass(FindClass(ClassName)).NewInstance).Create(self,CrFrmLoginInfo);
frmCom.Show;
end;问题:
就是被调的子窗体显示后,一但有Mouse 指蜮移到到了子窗体上面的CoolBar1 区(注子窗体上有一排按钮),此时子窗体就自动跑到调用窗体的后面去了。检查了所在子窗体的mouse 事件,按钮事件,窗体事件,都没有发现有什么代码或消息能让他跑取调主窗体的事件。真是不解。
var
i:integer;
begin
LoginInfo := Info;
Inherited Create(Application);
...
end;procedure Tformwork.CreateParams(var Params: TCreateParams);
begin
inherited ;
Params.WndParent := GetDesktopWindow;
end;当在调用开启了子窗体后,调用代码如下:
var
frmCom: Tformwork;
begin
frmCom := Tformwork(TFormClass(FindClass(ClassName)).NewInstance).Create(self,CrFrmLoginInfo);
frmCom.Show;
end;问题:
就是被调的子窗体显示后,一但有Mouse 指蜮移到到了子窗体上面的CoolBar1 区(注子窗体上有一排按钮),此时子窗体就自动跑到调用窗体的后面去了。检查了所在子窗体的mouse 事件,按钮事件,窗体事件,都没有发现有什么代码或消息能让他跑取调主窗体的事件。真是不解。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货