溫馨提示×

溫馨提示×

您好，登錄后才能下訂單哦！

密碼登錄×
登錄注冊×
其他方式登錄
點擊 登錄注冊 即表示同意《億速云用戶服務(wù)條款》

delphi浮動窗口

發(fā)布時間：2020-07-08 21:57:45 來源：網(wǎng)絡(luò) 閱讀：389 作者：AlunE 欄目：開發(fā)技術(shù)

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

用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)更加完美的效果！

向AI問一下細節(jié)

免責(zé)聲明：本站發(fā)布的內(nèi)容（圖片、視頻和文字）以原創(chuàng)、轉(zhuǎn)載和分享為主，文章觀點不代表本網(wǎng)站立場，如果涉及侵權(quán)請聯(lián)系站長郵箱：is@yisu.com進行舉報，并提供相關(guān)證據(jù)，一經(jīng)查實，將立刻刪除涉嫌侵權(quán)內(nèi)容。

AI
助
手