打印本文 打印本文  关闭窗口 关闭窗口  
类似网络蚂蚁的悬浮窗体
作者：佚名  文章来源：不详  点击数  更新时间：2008/4/18 14:39:09  文章录入：杜斌  责任编辑：杜斌
　　源码：

　　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设为空也没有用。
打印本文 打印本文  关闭窗口 关闭窗口