delphi Tpagecontrol 动态增加页面

最新推荐文章于 2022-01-22 17:38:18 发布

创意VS灵感之雨轩

最新推荐文章于 2022-01-22 17:38:18 发布

阅读量7.3k

点赞数

CC 4.0 BY-SA版权

分类专栏： delphi 文章标签： delphi tpagecontrol

本文链接：https://blog.youkuaiyun.com/u014028956/article/details/46790653

在某个项目中，需要利用TPageControl动态添加页面。本文介绍了两种方法实现这一功能：一种是直接使用内置函数，简单但存在短暂的窗口停靠现象；另一种是相对复杂的正确动态创建方法，确保页面平滑添加。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

前些日子做一个项目需要用到 Tpagecontrol 这个控件，然而平时使用的时候都是直接在上面增加控件就可以了，可是这次却是需要动态添加页面，上网也搜了，对于这方面的知识还真是没见到多少，也许是我搜索的方法有问题吧，千辛万苦也就找到了一下3种方法，如果要认真将的话，也只能算是2种吧，今天分享出来，希望能为要用到这个功能，又不会的人减少些时间吧。

第一种方法：

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;


也可以用aForm.MaualDock 可以用setparent;

这个方法比较简单，直接可以使用这个函数，里面的aForm 和 TaFormClass 是新建的窗口，然而这个方法却一直有个问题，就是窗口创建出来后，有一个停靠的过程，虽然时间很短，然而总是影响美观的。

第二种方法：

这个方法比较复杂，然而应该就是创建动态方法的正确方法了。