類似網路螞蟻的懸浮窗體 (轉)

類似網路螞蟻的懸浮窗體 (轉)[@more@]

原始碼：

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;
  //設 Owner為Desktop Window
  Param.WndParent=GetDesktopWindow();
}

注意：
  1、Windows Owner與Windows Parent不同，用::SetParent和設定Form?->Parent這能設定Windows Parent，不能設定Windows Owner，要實現的懸浮窗必須要設定Windows Owner。
  2、Form的BorderStyle要設為bsToolWindow，不然在工作列上會顯示出這個視窗的標題，將Caption設為空也沒有用。