本文整理自网络,侵删。
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 firedac 下的 sqlite [2] - 第一个例子
Delphi firemonkey中listboxaccessory图标切换
更多相关阅读请进入《Delphi》频道 >>