随便建一个窗口,窗口上放一个TPageControl控件,然后添加几个Page然后在FormCreate中添加以下代码 BorderIcons:=BorderIcons-[biMinimize, biMaximize]+[biHelp]; //窗口系统按钮中隐藏最大最小化按钮并显示帮助按钮
PageControl1.Pages[0].TabVisible:=False; //隐藏TPageControl第一页的翻页按钮然后就执行,很不幸,执行报措!虽然可以执行,但结果是错的,把最后一页的翻页按钮隐藏了
如果把以上2行换过来,那执行是没问题的,也达到目的了如果说是执行次序的问题,那么在设计阶段把第一行的工作完成,结果也是正确的。
有意思吧?以上在D5/D6中均出错!大伙在Delphi其它版本下测试看看
PageControl1.Pages[0].TabVisible:=False; //隐藏TPageControl第一页的翻页按钮然后就执行,很不幸,执行报措!虽然可以执行,但结果是错的,把最后一页的翻页按钮隐藏了
如果把以上2行换过来,那执行是没问题的,也达到目的了如果说是执行次序的问题,那么在设计阶段把第一行的工作完成,结果也是正确的。
有意思吧?以上在D5/D6中均出错!大伙在Delphi其它版本下测试看看
PageControl1.HandleNeeded; //<<<<<加这话后没出现异常
PageControl1.Pages[0].TabVisible := False; //隐藏TPageControl第一页的翻页按钮
BorderIcons:=BorderIcons-[biMinimize, biMaximize]+[biHelp]; //窗口系统按钮中隐藏最大最小化按钮并显示帮助按钮
PageControl1.ActivePageIndex:=0;
PageControl1.Pages[0].TabVisible:=False; //隐藏TPageControl第一页的翻页按钮方法二:
BorderIcons:=BorderIcons-[biMinimize, biMaximize]+[biHelp]; //窗口系统按钮中隐藏最大最小化按钮并显示帮助按钮
PageControl1.HandleNeeded;
PageControl1.Pages[0].TabVisible:=False; //隐藏TPageControl第一页的翻页按钮
摆明了就是初试化错误,但是很奇怪的是这个和窗口系统按钮有关系吗?
等TurboDelphi看看~
但如果直接在控件属性上设置。而不是在formcreate事件中写应该没错误的。