Windows-Delphi 窗口置顶

最新推荐文章于 2024-04-30 17:34:48 发布

怜渠客

最新推荐文章于 2024-04-30 17:34:48 发布

阅读量542

点赞数

分类专栏： Delphi Windows 文章标签： windows Delphi pascal

本文链接：https://blog.csdn.net/m0_47587308/article/details/133421236

版权

Windows 同时被 2 个专栏收录

3 篇文章 1 订阅

订阅专栏

Delphi

2 篇文章 0 订阅

订阅专栏

露从今夜白，月是故乡明。

1.Delphi将窗口置顶

 if topHwnd <> 0 then
    begin
      SetWindowPos(topHwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
      tmr1.Enabled := True;
    end;

其中topHwnd是目标窗口的句柄。

2.窗口取消置顶

if topHwnd <> 0 then
    begin
      SetWindowPos(topHwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE or
        SWP_NOSIZE);
      tmr1.Enabled := True;
    end;

将 HWND_TOPMOST 改成 HWND_NOTOPMOST 即可。

3.获取窗口祖句柄

function GetTopLevelWindowHandle(HWND: HWND): HWND;
begin
  Result := HWND;
  while (Result <> 0) and (GetParent(Result) <> 0) do
    Result := GetParent(Result);
end;

一般设置祖窗口句柄，不然可能不会生效。