请问如何动态生成pagecontrol中的tabsheet？生成以后如何在tabsheet上放置一个stringgrid？

Question

放置以后如何访问每一个tabsheet上的stringgrid？

Answer 1

1:创建TabSheet和StringGrid
var
  newTabSheet:Ttabsheet;
  newStrGrid:TStringGrid;
  i:integer;
begin
  for i:=1 to 5 do
  begin
    NewTabSheet:=TTabSheet.Create(Pgc1);
    with NewTabSheet do
    begin
      Name:='TabSheet' + IntToStr(i);
      Parent:=Pgc1;
      NewTabSheet.PageControl:=Pgc1;
      Caption:='TabSheet' + IntToStr(i);
    end;
    newStrGrid:=TStringGrid.Create(NewTabSheet);
    with newStrGrid do
    begin
      Name:='StrGrid' + IntToStr(i);
      Parent:=NewTabSheet;
      Width:=NewTabSheet.Width;
      Height:=NewTabSheet.Height;
      Top:=0;
      left:=0;
    end;
  end;
2.操作StringGrid
操作新创建的StringGrid的办法有很多.楼主视情况而定.
begin
  showmessage(Pgc1.ActivePage.Components[0].Name);
end;