WEB开发网
开发学院软件开发Delphi 类似网络蚂蚁的悬浮窗体 阅读

类似网络蚂蚁的悬浮窗体

 2006-02-04 13:28:46 来源:WEB开发网   
核心提示:源码:PRotected: virtual void __fastcall CreateParams(TCreateParams & Param);void __fastcall TForm2::CreateParams(TCreateParams & Param){ //调用基类 TForm::CreatePa

源码:

PRotected:
     virtual void __fastcall CreateParams(TCreateParams & Param);

void __fastcall TForm2::CreateParams(TCreateParams & Param)
{
  //调用基类
  TForm::CreateParams(Param);  

  //去掉窗口标题区
  Param.Style=Param.Style & ~WS_CAPTION;
  Param.Style=Param.Style | WS_POPUP;
  //设为总在最上面
  Param.ExStyle=Param.ExStyle | WS_EX_TOPMOST;
  //设Windows Owner为Desktop Window
  Param.WndParent=GetDesktopWindow();
}

注意:
  1、Windows Owner与Windows Parent不同,用::SetParent函数和设置Form?->Parent这能设置Windows Parent,不能设置Windows Owner,要实现FlashGet的悬浮窗必须要设置Windows Owner。
  2、Form的BorderStyle要设为bsToolWindow,不然在任务栏上会显示出这个窗口的标题,将Caption设为空也没有用。

Tags:类似 网络蚂蚁 悬浮

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接