多页控制组件PageControl

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;