分组组件的使用(1)- TPageControl页面组件
TPageControl组件时页面组件,可创建多页对话框或标题笔记本,显示多个可重叠的页面,通过顶部的标签来选择页面。
属性:
1、ActivePage属性:用于显示或设置当前显示得页面,使用该属性可以任意切换当前页面。
procedure TForm1.Button1Click(Sender: TObject); begin PageControl1.ActivePage:= PageControl1.Pages[0];//显示页面一 end;
2、ActivePageIndex属性:使用该属性可获得或设置活动页的当前索引值,取值大于0 或小于PageCount- 1,超出范围将导致页面组件中没有活动页。
改变其值即改变ActivePage 属性,如果无活动也,则其值为 -1。
3、PageCount属性:使用该属性可确定Page属性中列出的页数,如果MultLine 属性为False,则并不是所有页面都有用户可视的标签。
方法:
1、FindNextPage 方法:调用该方法可通过预期位置相关的页查找页面组件中的页。
示例:激活下一个组件页
PageControl1.ActivePage:= PageControl1.FindNextPage(PageControl1.ActivePage,True,True);
2、SelectNextPage 方法:如果GoForward 参数为True,则该方法选择ActivePage 属性指定页的后一页,否则指定前一页。
PageControl1.SelectNextpage(True,True);
编程语言无所谓高低级,唯适用罢了。语言结构再天花乱坠,富丽堂皇终不过CPU上的0和1。