像Photoshop一樣的面板窗體，面板窗體與主窗體都處于激活狀態(tài)。

創(chuàng)新互聯(lián)是一家集網(wǎng)站建設(shè),大箐山企業(yè)網(wǎng)站建設(shè),大箐山品牌網(wǎng)站建設(shè),網(wǎng)站定制,大箐山網(wǎng)站建設(shè)報價,網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,大箐山網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競爭力。可充分滿足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實用型網(wǎng)站。

用Spy & Capture查看一下就不難發(fā)現(xiàn)，這些面板窗體的Parent Window都是Photoshop的主窗體(以Photoshop CS為例，主窗體的Handle是001906D8，所有面板的Parent Window指向的就是001906D8），而一般我們創(chuàng)建的窗體的Parent是為None的。

下面的代碼就為實現(xiàn)這種浮動窗口的示范：

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處于激活狀態(tài)
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同處激活狀態(tài)的Form2，再對Form2的BorderStyle與BorderIcons屬性作一些必要的選擇，就可以實現(xiàn)更加完美的效果！

另外有需要云服務(wù)器可以了解下創(chuàng)新互聯(lián)cdcxhl.cn，海內(nèi)外云服務(wù)器15元起步，三天無理由+7*72小時售后在線，公司持有idc許可證，提供“云服務(wù)器、裸金屬服務(wù)器、高防服務(wù)器、香港服務(wù)器、美國服務(wù)器、虛擬主機(jī)、免備案服務(wù)器”等云主機(jī)租用服務(wù)以及企業(yè)上云的綜合解決方案，具有“安全穩(wěn)定、簡單易用、服務(wù)可用性高、性價比高”等特點與優(yōu)勢，專為企業(yè)上云打造定制，能夠滿足用戶豐富、多元化的應(yīng)用場景需求。

網(wǎng)站名稱：delphi浮動窗口-創(chuàng)新互聯(lián)
分享鏈接：http://weahome.cn/article/dcpcog.html