delphi创建Photoshop式浮动窗口应用程序

时间:2010-01-31 10:00:46  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:的是工作中所有这些面板窗体与主窗体最处于激活状态。  用Spy & Capture查看一下就不难发现,这些面板窗体的Parent Window都是Photoshop的主窗体(以Photoshop CS为例,主窗体的Handle是001906D8,所有面板的Parent Window指向的就是001906D8),而一般我们创建的窗体的Parent是为None的。  下面的代码就为实现这种Photoshop式浮动窗口的示范:
  正文:用过photoshop的朋友一定对它的那些方便的浮动面板记忆犹新,其实这些面板就是一个个的小窗体,但这些小窗体都放在Photoshop的主窗体上(不是存在主窗体中),有自己的标题栏、最小化按钮及最大化按钮。但它们与MDI程序不同的是,他们可以拖到主窗体外,更重要的是工作中所有这些面板窗体与主窗体最处于激活状态。

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

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


//......

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

delphi创建Photoshop式浮动窗口应用程序》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12669.html


关键字:

关于《delphi创建Photoshop式浮动窗口应用程序》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td