13问答网 > Delphi中怎么控制某窗体永远处于屏幕最上层，比如浏览器等任何其他程序就算最大化都不会遮挡住该窗体！

Delphi中怎么控制某窗体永远处于屏幕最上层，比如浏览器等任何其他程序就算最大化都不会遮挡住该窗体！

2025-05-11 01:12:49

推荐回答（3个）

回答1：

procedure StayOnTop(Handle:HWND;OnTop:Boolean);
const
csOnTop:array[Boolean] of HWND=(HWND_NOTOPMOST,HWND_TOPMOST);
begin
SetWindowPos(Handle,csOnTop[OnTop],0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);
end;

//handle为你想要置顶的句柄form.handle
试下吧。。。

回答2：

在OnCreate中添加
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);

回答3：

显示模式top