运行时为命名的TPageControl添加TTabSheet报错，如何解决？

你遇到的错误是因为**Pg1只是控件的Name属性值，不是代码里的变量名**，编译器找不到名为Pg1的变量，所以报未声明标识符的错误。以下两种方法可以解决：

方法一：保存TPageControl的对象引用到变量 #

创建TPageControl时，把对象实例赋值给变量，后续直接用变量引用：

var
  Pg1, Pg2: TPageControl;
  TabSheet: TTabSheet;
begin
  // 创建第一个TPageControl并保存到变量
  Pg1 := TPageControl.Create(Self);
  Pg1.Name := 'Pg1';
  Pg1.Parent := Self; // 设置父控件，比如Form
  Pg1.Left := 10;
  Pg1.Top := 10;
  Pg1.Width := 300;
  Pg1.Height := 200;

  // 创建第二个TPageControl
  Pg2 := TPageControl.Create(Self);
  Pg2.Name := 'Pg2';
  Pg2.Parent := Self;
  Pg2.Left := 10;
  Pg2.Top := 220;
  Pg2.Width := 300;
  Pg2.Height := 200;

  // 给Pg1添加TTabSheet
  TabSheet := TTabSheet.Create(Pg1);
  TabSheet.PageControl := Pg1; // 必须指定所属的PageControl
  TabSheet.Caption := 'Tab 1 for Pg1';

  // 给Pg2添加TTabSheet
  TabSheet := TTabSheet.Create(Pg2);
  TabSheet.PageControl := Pg2;
  TabSheet.Caption := 'Tab 1 for Pg2';
end;

这种方法最直接，也是推荐的方式，因为直接持有对象引用，效率高且不易出错。

方法二：通过Name查找TPageControl控件 #

如果没有保存变量引用，可以通过父控件的Controls集合查找对应Name的控件：

var
  TabSheet: TTabSheet;
  PgControl: TPageControl;
begin
  // 查找Name为'Pg1'的TPageControl
  PgControl := TPageControl(Self.FindComponent('Pg1'));
  if Assigned(PgControl) then
  begin
    TabSheet := TTabSheet.Create(PgControl);
    TabSheet.PageControl := PgControl;
    TabSheet.Caption := 'Tab via FindComponent';
  end;
end;

注意：FindComponent只会查找直接子控件，且需要确保控件的Owner是当前容器（比如Form），如果控件嵌套在其他容器里，可能需要遍历容器的Controls集合来查找。

内容的提问来源于stack exchange，提问作者Zink