创建Photo Shop式浮动窗口应用程序

用过Photoshop的朋友一定对它的那些方便的浮动面板记忆犹新，其实这些面板就是一个个的小窗体，但这些小窗体都放在Photoshop的主窗体上（不是存在主窗体中），有自己的标题栏、最小化按钮及最大化按钮。但它们与MDI程序不同的是，他们可以拖到主窗体外，更重要的是工作中所有这些面板窗体与主窗体最处于激活状态。

　　用Spy&Capture查看一下就不难发现，这些面板窗体的ParentWindow都是Photoshop的主窗体(以PhotoshopCS为例，主窗体的Handle是001906D8，所有面板的ParentWindow指向的就是001906D8），而一般我们创建的窗体的Parent是为None的。

　　下面的代码就为实现这种Photoshop式浮动窗口的示范：
　　//......

　　var
　　Form1:TForm1;

　　implementation adminI5.com站长之_家

　　usesUnit2; 站长.之家adminI5.com

　　{$R*.dfm}

　　procedureTForm1.Button1Click(Sender:TObject);
　　begin
　　//把Form2的Parent改为Form1
　　Form2:=TForm2.CreateParented(Form1.Handle);
　　Form2.Show;
　　//使得Form2处于激活状态
　　SendMessage(Form2.Handle,WM_NCACTIVATE,Ord(True),0);
　　end; 站_长之家adminI5.com

　　procedureTForm1.Button2Click(Sender:TObject);
　　begin
　　Form2.Close;
　　end;

　　procedureTForm1.FormDestroy(Sender:TObject);
　　begin
　　//记得加上这一句
　　ifForm2.ShowingthenForm2.Close;
　　end;

　　end.

　　上面的代码就可以显示一个与Form1同处激活状态的Form2，再对Form2的BorderStyle与BorderIcons属性作一些必要的选择，就可以实现更加完美的效果！ 站长.之家

看完这篇，您有何感觉呢？