这个例子要求form上已经有一个TPageControl。另外，您必须通过右击并选择New Page将页面添加到TPageControl中。示例代码允许您通过选择ComboBox项来选择ActivePage属性。在form被创建时，已装载了每一个tabs的名称Combo Box控件被加载，以及指向相应tab的实例指针。当您选择组合框Item时，组合框对象数组中包含的相关TTabSheet 对象，用于设置ActivePage属性。选择TRichEdit的Lines属性用于输入字符串。在验证之前选择字符串。

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;

翻译由网淘巴完成，转载必须标明出处：ActivePage实例代码_delphi_网淘巴 (wtao8.com)

天猫隐藏优惠券

网淘吧

部分文章来自各大搜索引擎，如有侵权，请与我联系删除。

打赏

微信扫一扫，打赏作者吧～