溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
像Photoshop一樣的面板窗體，面板窗體與主窗體都處于激活狀態。
用Spy & Capture查看一下就不難發現，這些面板窗體的Parent Window都是Photoshop的主窗體(以Photoshop CS為例，主窗體的Handle是001906D8，所有面板的Parent Window指向的就是001906D8），而一般我們創建的窗體的Parent是為None的。
下面的代碼就為實現這種浮動窗口的示范：
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屬性作一些必要的選擇，就可以實現更加完美的效果！
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
