Vcl.ComCtrls.TPageControl.ActivePage

描述

本示例,要求窗体上放置一个TPageControl,另外,还必须通过右键单击并选择“New Page”将页面添加到TPageControl。

该示例代码允许您通过选择ComboBox项来选择ActivePage属性。创建窗体时,ComboBox控件将加载每个选项卡的名称以及指向相应选项卡的实例指针,当我们选择“ComboBox”项时,“ComboBox对象(Objects ”数组中包含了关联TTabSheet对象, 并把当前TTabSheet对象设置为激活页面。 


代码

 procedure TForm1.FormCreate(Sender: TObject);
var
   i: Integer;
const
   colorarray : Array[0..4] of TColor = (
    clYellow, clGreen, clBlue, clLime, clFuchsia);
begin
   for i := 0 to PageControl1.PageCount - 1 do
    begin
    PageControl1.Pages[i].Brush.Color := colorarray[i];
    ComboBox1.Items.AddObject(PageControl1.Pages[i].Name,
      PageControl1.Pages[i]);
    end;
   ComboBox1.ItemIndex := 0;
   PageControl1.ActivePage := TTabSheet(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
   if (Sender is TComboBox) then
    with (Sender as TComboBox) do
      PageControl1.ActivePage := TTabSheet(Items.Objects[ItemIndex]);
end;







联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678