創建Photoshop式浮動視窗應用程式    （文章被人四處盜用，所以乾脆貼到這裏來） 用過Photoshop的朋友一定對它的那些方便的浮動面板記憶猶新，其實這些面板就是一個個的小表單，但這些小表單都放在Photoshop的主表單上（不是存在主表單中），有自己的標題欄、最小化按鈕及最大化按鈕。但它們與MDI程式不同的是，他們可以拖到主表單外，更重要的是工作中所有這些面板表單與主表單最處於啟動狀態。     用Spy & Capture查看一下就不難發現，這些面板表單的Parent Window都是Photoshop的主表單(以Photoshop CS為例，主表單的Handle是001906D8，所有面板的Parent Window指向的就是001906D8），而一般我們創建的表單的Parent是為None的。     下面的代碼就為實現這種Photoshop式浮動視窗的示範：    

//......    var
  Form1: TForm1;    implementation    uses Unit2;    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject);
begin
  //把Form2的Parent改為Form1
  Form2 := TForm2.CreateParented(Form1.Handle);
  Form2.Show;
  //使得Form2處於啟動狀態
  SendMessage(Form2.Handle, WM_NCACTIVATE, Ord(True), 0);
end;    procedure TForm1.Button2Click(Sender: TObject);
begin
  Form2.Close;
end;    procedure TForm1.FormDestroy(Sender: TObject);
begin
  //記得加上這一句
  if Form2.Showing then Form2.Close;
end;    end.

上面的代碼就可以顯示一個與Form1同處啟動狀態的Form2，再對Form2的BorderStyle與BorderIcons屬性作一些必要的選擇，就可以實現更加完美的效果！ 發表人 - h@visli 於 2005/06/13 11:06:59

------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------

如加入 SetWindowRgn(Handle,CreateRoundRectRgn(10,10,ClientWidth,ClientHeight,50,50), TRUE); 應該點做

homanfai大大的 SetWindowRgn(Handle,CreateRoundRectRgn(10,10,ClientWidth,ClientHeight,50,50), TRUE); 我加在TForm1.Button1Click下 虽然实现圆滑边角 但感觉比较难看 我在点击