delphi浮动窗口

最新推荐文章于 2023-06-03 16:18:56 发布

weixin_33755847

最新推荐文章于 2023-06-03 16:18:56 发布

阅读量237

点赞数

文章标签： photoshop

原文链接：http://blog.51cto.com/alun51cto/2399909

版权

像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属性作一些必要的选择，就可以实现更加完美的效果！

转载于:https://blog.51cto.com/alun51cto/2399909