Delphi 窗体置顶(总在最前面)

代码如下：

SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width,Height,SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

只要改变相应参数还可实现其他效果，如隐藏、固定不动等。

 

下面我举一个复选框的例子：

procedure TForm1.checkBox1Click(Sender: TObject);

begin

if checkBox1.Checked then

    SetWindowPos(Form1.Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE)

else

    SetWindowPos(Form1.Handle,HWND_NOTOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);

end;

 此外,如果默认启动后窗体置顶,还需要在onCreate事件中加入 SetWindowPos(Form1.Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE)

不建议使用 FormStyle:=fsStayOnTop; 这种方式。