delphi浮動(dòng)窗口-創(chuàng)新互聯(lián)

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

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

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

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

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.

上面的代碼就可以顯示一個(gè)與Form1同處激活狀態(tài)的Form2，再對(duì)Form2的BorderStyle與BorderIcons屬性作一些必要的選擇，就可以實(shí)現(xiàn)更加完美的效果！

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

網(wǎng)頁標(biāo)題：delphi浮動(dòng)窗口-創(chuàng)新互聯(lián)
新聞來源：http://muchs.cn/article6/dcpcog.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供企業(yè)建站、網(wǎng)站制作、App設(shè)計(jì)、外貿(mào)建站、服務(wù)器托管、面包屑導(dǎo)航

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)