FormStyle设为fsStayOnTop。 Public procedure Createparams(Var Params:TCreateParams);override; ...procedure TFormDrop.Createparams(var Params:TCreateParams); begin Inherited CreateParams(Params); With Params do begin EXStyle:=ExStyle or WS_EX_TOPMOST; wndParnet:=GetDesktopWindow; //关键一行,用SetParent都不行!! end; end;
wndParnet:=GetDesktopWindow;语句提示 wndParnet 未定义。我用 EXStyle:=ExStyle or WS_EX_TOPMOST; 或//Params.Style := WS_SIZEBOX or WS_POPUP or WS_BORDER; 都可以让程序放于最上面 但在两个程序来回切换操作若干次后就会被屏蔽到别的程序下面去了。请konhon(优华) 指教 谢谢
行舟
欢迎使用CSDN论坛浏览器
http://blog.xingzhou.com
http://blog.csdn.net/xingzhou/
就可以了。
Public
procedure Createparams(Var Params:TCreateParams);override;
...procedure TFormDrop.Createparams(var Params:TCreateParams);
begin
Inherited CreateParams(Params);
With Params do
begin
EXStyle:=ExStyle or WS_EX_TOPMOST;
wndParnet:=GetDesktopWindow; //关键一行,用SetParent都不行!!
end;
end;
或//Params.Style := WS_SIZEBOX or WS_POPUP or WS_BORDER;
都可以让程序放于最上面 但在两个程序来回切换操作若干次后就会被屏蔽到别的程序下面去了。请konhon(优华) 指教 谢谢
EXStyle:=ExStyle or WS_EX_TOPMOST;不用写就可以