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 如何屏蔽alt+f4

Delphi调用java编写的webservice

Delphi 62 进制的简单实现

Delphi strtofloat 将“字符型”转换成“浮点型”

Delphi 快速获取文件大小（使用_lopen和fileseek，此函数可以快速获取文件大小，即使文件已经被其它程序锁定）

Delphi ip地址转换str字符

Delphi 2009 新增单元 character[1]: toupper、tolower - 字符与字符串的大小写转换

Delphi dbgrid鼠标滚屏

Delphi xe firemonkey的几个特色属性

Delphi webbrowser全选\复制\粘贴

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

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