散分：分享一种窗体融合的方法,该怎么处理

散分：分享一种窗体融合的方法
看到也有不少人跟我一样，喜欢做一些窗体融合的功能，本人对此也有些兴趣，学习过程也得到不少网友帮助，
因此，分享一种融合窗体的方法。
  这个方法没有主动去设置表单的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的作用是？
[解决办法]
本来要鼓捣融合的，不过窗体融合了就不响应原来发过来的消息了。
[解决办法]

探讨

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

[解决办法]
俺一直都是用SetParent啊
[解决办法]
2楼，方法与效果是最理想的，支持！
[解决办法]
支持

.

查看更多 下一篇