本文整理自网络,侵删。
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 xe mysql数据库操作类 mysqlhelper
Delphi application.title在win7下失效了?
Delphi xe ioutils tpath(结构体) 的方法与属性
更多相关阅读请进入《Delphi》频道 >>