源码：

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设为空也没有用。

（出处：http://www.678e.com）

• 其他文章

• 上一篇文章： 改进的socket控件
• 下一篇文章： DELPHI中的静态虚拟及动态方法函数的区别。

• 相关文章

制作类似WinAmp一样的“磁性”窗口
在delhpi程序中获取网络资源信息
Delphi编写网络程序的安全措施
Java网络编程之传输控制协议(三)
Java网络编程之传输控制协议(二)