散分：分享一种窗体融合的方法

看到也有不少人跟我一样，喜欢做一些窗体融合的功能，本人对此也有些兴趣，学习过程也得到不少网友帮助，
因此，分享一种融合窗体的方法。
  这个方法没有主动去设置表单的parent,即没有用 setParent,而是用了MaualDock来实现的。
融合后，表单的caption就是融合到pageControl上tabsheet的caption.
所以，在融合前，遍历page，查找是否已融合过，即可防止二次融合。

Delphi(Pascal) code

procedure PageAddForm(aPage:TRZpageControl;aForm:TForm;TaFormClass:TClass);
begin
    application.CreateForm(TComponent(TaFormClass),aForm);
   aForm.MaualDock(aPage));          //融合至pageControl,
   aForm.Visible:=true;              //这个比用 show效果更好
   aPage.ActivePageindex:=aPage.PageCount-1;
end;

注意：在调用之前，先检查一下aPage上是否已融合的当前要融合的表单，
如果已融合，则切换到对应的Tabsheet,否则调用。


融合之后，生成的Tabsheet.caption为表单的caption
因此通过
  for i:=0 to aPage.PageCount-1 进行遍历查找即可。
  ......

当然，这个检查过程也可以加在PageAddForm中去，加个参数就行了。

MaualDock这种方法没有用过，效率怎么样啊？

如果有这种效果就好了。。。

MaualDock的作用是？

本来要鼓捣融合的，不过窗体融合了就不响应原来发过来的消息了。