创建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去看看 <设计模式> 中的 "观察者模式 ",肯定会有启发的
------解决方案--------------------
学习