把窗口设为最上 (2001年3月9日).txt

来自「自己对DELPHI学习的一点体会」· 文本 代码 · 共 19 行

把窗口设为最上 (2001年3月9日) 

网友更新  分类:Win API   作者:eangle2000  推荐:eangle2000   阅读次数:351  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
API函数：SetWindowPos，使用窗体的句柄作为它的参数之一。
begin
If checkbox1.Checked then
SetWindowPos( MainForm.Handle,Hwnd_Topmost,0,0,0,0,
(SWP_NOMOVE Or SWP_NOSIZE))//设为最上
else
SetWindowPos( MainForm.Handle,Hwnd_Notopmost,0,0,0,0,
(SWP_NOMOVE Or SWP_NOSIZE));//取消最上
end;