Question

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

Answer 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
试下吧。。。

追问

你好，好像不行，我弹出窗体后，把浏览器一放大 还是被浏览器挡住

追答

Setwindowpos(Form1.Handle,HWND_TOPMOST,Form1.Left,Form1.top,Form1.width,Form1.Height,0);

Answer 2

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

Answer 3

显示模式top