• 全部
  • 语言基础/算法/系统设计
  • 数据库相关
  • 图形处理/多媒体
  • 网络通信/分布式开发
  • VCL组件开发及应用
  • Windows SDK/API
  • 问答

如何让显示的窗口在桌面的最上面,而不被其他窗口遮住那?

wangzn1979 2002-06-24 07:04:06
如何让显示的窗口在桌面的最上面,而不被其他窗口遮住那?
...全文
93 点赞 收藏 8
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Billy_Chen28 2002-06-25
你要显示的窗体.formstyle:=fsStayOnTop;
回复
dreamfan 2002-06-25
form1.formstyle:=fsStayOnTop;
回复
lyhold 2002-06-25
在最上面
form1.formstyle:=fsStayOnTop;


不让窗体关闭和移动!!!
private
{ Private declarations }
procedure WMSysCommand(var Msg:TWMSysCommand);message WM_syscommand;


procedure TMain.WMSysCommand(var Msg:TWMSysCommand);
begin
if Msg.CmdType=SC_close then
begin
end
else
if msg.CmdType =SC_MOVE then
begin
end
else
if msg.cmdtype=sc_restore then
begin
end
else
inherited;
end;
回复
surfguy 2002-06-24
netlib(河外孤星)的是对的。
回复
taxi 2002-06-24
procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowPos(Application.Handle, HWND_TOPMOST, 0, 0, 0, 0,
SWP_NOMOVE or SWP_NOSIZE);
end;
回复
surfguy 2002-06-24
bringtofront
回复
shadows 2002-06-24
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 OR WS_EX_ACCEPTFILES or WS_DLGFRAME

wndParnet:=GetDesktopWindow; //关键一行,用SetParent都不行!!

end;

end;
回复
netlib 2002-06-24
form1.formstyle:=fsStayOnTop;
回复
发帖
Delphi
创建于2007-08-02

4874

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2002-06-24 07:04
社区公告
暂无公告