PageControl组件位于组件板的Win32页中,该组件用于
实现窗体上多页面技术,每个页面上均能添加若干控件。程序运行时,单击页面标签就可以在多页之间切换。
1.建立多页
用鼠标右键单击PageControl组件,在弹出式菜单中选择New Page子菜单可添加新页,用Delete子菜单可删除当前
页。读者应注意:
·单击PageControl组件标题时,选中的是PageControl对象。
·单击PageControl组件页面时,选中的是TabSheet对象。
选择不同对象,在对象监视器中将显示不同对象的属性,即显示PageControl对象或TabSheet对象的属性。
2.PageControl对象的主要属性
(1)ActivePage属性
ActivePage属性用于设置PageControl组件的当前页。单击ActivePage属性的下拉列表框,从列表框中可选择不同
页面。
(2)Muhiline属性
Muhiline属性值为True时,PageControl控件呈多行风格。
(3)Image属性
Image属性表示与PageControl相关联的ImageList名。选定后PageControl就可使用Image-List中的图像。
(4)Pages属性
PageControl的所有页面记录在Page属性中,Pages是运行时的属性,即设计时在对象监视器中不可见,而运行时
却能在程序中引用。
Pages是一个数组,其元素类型为TTabSheet,元素个数放在PageCount中,Pages[0]是第一页,Pages[PageCount
一1]是最后一页。
(5)ActivePageIndex属性
ActivePageIndex属性是当前活动页的Page属性的下标,从0开始计数。ActivePageIndex也是运行时的属性。
3.TabSheet对象的常用属性
(1)Caption属性
该属性用于设置页标签名称。
(2)PageIndex属性
Pagelndex为该页在Pages数组中的下标,从0开始。
(3)TabVisible属性
TabVisible属性用于设置本页是否可见。
(4)Imagelndex属性
该页使用图像在ImageList中的索引值。
自己变通一下啊,在一Panel排列控件
var
T : TTabsheet;
begin
T := TTabsheet.Create(self);
T.Caption := 'Tst';
T.PageControl := PageControl1;
T.TabVisible := True;
PageControl1.ActivePage := T;
Panel1.Parent:=T;//设置其Parent为T
end;