浮动窗体显示后出错(高手回答)(100分)

  • 主题发起人 主题发起人 zdy0155
  • 开始时间 开始时间
Z

zdy0155

Unregistered / Unconfirmed
GUEST, unregistred user!
代码如下
Tflow = class(TForm)
{ with Paramsdo
begin
Style :=Style or WS_POPUP ;
params.WndParent :=GetDeskTopWindow ;
end}
SetWindowPos(handle,HWND_TOPMOST ,Left,Top,Width,Height,SWP_SHOWWINDOW);
ShowWindow( Handle, SW_HIDE );
SetWindowLong( Handle, GWL_EXSTYLE,
GetWindowLong(Application.Handle, GWL_EXSTYLE) or
WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
ShowWindow( Handle, SW_SHOW );
1:我在主窗体调用 application.createform(tflow,flow);
flow.show;
以后,出现该窗体,当我在主窗体内按鼠标或干任何操作是,都提示‘非法操作’
什么原因呢(我想做浮动窗体)
2:有时该窗体出现后不出错,调用后任务列表中(ctrl+alt+del)出现的是flow窗体的标题文字,
怎样把 主窗体的标题重新显示出来啊
 
这些代码怎么能放在类定义中
把下面二行代码放在 Form 的 OnCreate 事件中:
SetWindowPos(handle,HWND_TOPMOST ,Left,Top,Width,Height,SWP_SHOWWINDOW);
SetWindowLong( Handle, GWL_EXSTYLE,GetWindowLong(Handle, GWL_EXSTYLE) or
WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
 
对,要放在oncreate里
 
不行啊,有没有人做过啊
 
FormStyle = fsStayOnTop
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
I
回复
0
查看
716
import
I
后退
顶部