日期:2014-05-20  浏览次数:20831 次

创建Photoshop式浮动窗口应用程序
在网上搜到下列代码,请高手把它转换为c#或vb的好吗?
转帖于:http://www.asppsa.com/view.php?viewid=3377

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


------解决方案--------------------
up,学习
------解决方案--------------------
主要就是调用API
SendMessage(Form2.Handle, WM_NCACTIVATE, Ord(True), 0);
------解决方案--------------------
upup
------解决方案--------------------
up
------解决方案--------------------
我研究的是MDI,每个子窗体都在MainForm中,你的这个比较难
------解决方案--------------------
建议lz去看看 <设计模式> 中的 "观察者模式 ",肯定会有启发的
------解决方案--------------------
学习