描述

本示例，要求窗体上放置一个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;