下面是个创建Photoshop式浮动窗口应用程序教程，撑握了其技术要点，学起来就简单多了。赶紧跟着图老师小编一起来看看吧！
【 tulaoshi.com - 编程语言 】
用过Photoshop的朋友一定对它的那些方便的浮动面板记忆犹新，其实这些面板就是一个个的小窗体，但这些小窗体都放在Photoshop的主窗体上（不是存在主窗体中），有自己的标题栏、最小化按钮及最大化按钮。但它们与MDI程序不同的是，他们可以拖到主窗体外，更重要的是工作中所有这些面板窗体与主窗体最处于激活状态。 var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
（本文来源于图老师网站，更多请访问https://www.tulaoshi.com/bianchengyuyan/） 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://www.tulaoshi.com/n/20160219/1619205.html
看过《创建Photoshop式浮动窗口应用程序》的人还看了以下文章 更多>>
