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;

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

相关阅读 >>

Delphi 10.3 调试程序时出错：unable to create process:请求的操作需要提升

Delphi新的变量的声明方法

Delphi创建密钥文件

Delphi申请和释放内存

Delphi中关于时间差的实例

Delphi removewhitespaces 过滤字符串所有空格

Delphi 模糊查询和字段查询

Delphi 取整算法集合

Delphi stopprocess 进程关闭函数

Delphi中关键字inherited

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 窗体置顶(总在最前面)