软件资讯正文

怎样制作真正的TopMost窗口

怎样制作真正的TopMost窗口:

  如果一个TOPMOST窗口不是MainForm的话,那么即将将它设为总在顶端,它也会随着主窗口的前摆而前摆,后摆而后摆。那么怎么解决这个问题呢?

先将窗口的BorderStyle设为bsNone,FormStyle设为fsStayOnTop。 procedure TForm3.CreateParams(var Params:TCreateParams); begin inherited; with Params do begin Style:=Params.Style xor WS_DLGFRAME; WndParent:=0;//此行 end; end; procedure TForm3.FormCreate(Sender: TObject); begin Width:=36; Height:=36; SetWindowLong(Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW); end;

更多

相关阅读