本文整理自网络,侵删。
if CheckBox1.Checked then
SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOSIZE + SWP_NOMOVE)
else
SetWindowPos(Handle,HWND_NOTOPMOST,0,0,0,0,SWP_NOSIZE + SWP_NOMOVE);
end;
相关阅读 >>
Delphi 能否把.txt文件的数据导入到access数据库中
Delphi xe webbroker 开发,解决 response 返回中文乱码问题
Delphi建立快捷方式的函数:createshortcut()
更多相关阅读请进入《Delphi》频道 >>