[代码]设置窗体位于最前

这个功能是利用了系统的API,让程序位于最前,在实际中还是有一定的作用的。

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
    SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width,Height,0)//设置窗体至上
  else
    SetWindowPos(Handle,HWND_NOTOPMOST,Left,Top,Width,Height,0);//恢复正常
end; 
分享到: