制作真正的TopMost窗口
添加时间: 2006-2-26 8:48:00 作者: Delphi教程 阅读次数:85 来源: http://www.d9soft.com
如果一个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;
上一篇文章: Delphi开发WEB应用程序打印组件 下一篇文章: 制作类似WinAmp一样的“磁性”窗口
相关文章: