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 messagebox 和 messagedlg用法

Delphi 把字符串复制到剪贴板

Delphi xe(indy10)tidbytes转ansistring的实现

Delphi olevariant excel保存文件

Delphi 把文件锁定到任务栏

Delphi启动屏幕保护

Delphi ansi与unicode编码互转

Delphi createprocesswithlogonw用法

Delphi的tstreamreader逐行读取文本文件

Delphi 获取文件夹时间

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...