類似網絡螞蟻的懸浮窗體

　　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設為空也沒有用。