解析Delphi 窗口置顶，及非主窗口置顶

最新推荐文章于 2023-09-30 00:04:35 发布

xiaowei_sql

最新推荐文章于 2023-09-30 00:04:35 发布

阅读量4.5k

点赞数

分类专栏： Delphi、Pascal领域相关文章标签： delphi 窗口置顶

本文链接：https://blog.youkuaiyun.com/xiaowei_sql/article/details/50829178

版权

Delphi、Pascal领域相关专栏收录该内容

3 篇文章

订阅专栏

本文介绍了在Delphi中如何实现窗口置顶和取消置顶，包括使用SetWindowPos函数的具体代码示例。对于非主窗口置顶的问题，通过设置窗体的父窗口为桌面并调整Caption属性来实现，或者利用Application.NormalizeTopMosts配合SetWindowPos达到置顶效果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

窗口置顶

setwindowpos(self.handle,HWND_TOPMIOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);//窗口置顶

setwindowpos(self.handle,HWND_NOTOPMIOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);//取消窗口置顶

非主窗口置顶

在Delphi中，非主窗体如何置顶
SetWindowPos(Form1.Handle, HWND_TOPMIOST, Left, Top, Width, height, SWP_SHOWWINDOW)可以将窗口放在所有窗口的最前面，但是这仅对一个应用程序的主窗口有效，非主窗口只能在这个应用程序的内部被置前，但是其他应用程序的窗口仍然会盖住他。

  解决方法是将Form1的父窗口设为桌面，如：

procedure TForm1.CreateParams(var Params: TCreateParams);

begin
  inherited;
  with Params do
  begin
    WndParent := GetdesktopWindow();
  end;
end;

但是这样会在进程管理器中的应用程序中多出一个Form1，怎样才能不让出现这个Form1了，其实解决方法很简单的，只需要将Form1的caption属性设为空就可以：Form1.Caption := '';