Crear un PageControl, Hojas y demás..

[GerTorresM]

Hola a todos:


La situación que en la fecha se me presenta es la siguiente :

Tengo que crear mediante código un PageControl, en este insertar algunas hojas y en las hojas insertar un TStringGrid, pero la verdad no tengo mucha idea y he tenido problemas con el parentesco al adicionar algunos componentes a las hojas.

Agradezco de antemano comentarios y ejemplos.



gracías de antemano




gertorresm
Colombia

[*Caro*]

Hola GerTorresM, te pongo un ejemplo, crea 4 pestañas y un StringGrid en cada una de ellas.

Código Delphi [-]
 TabSheet : TTabSheet;
 PageCtrl : TPageControl;
 StringGrid : TSTringGrid;
begin
 PageCtrl := TPageControl.Create(Self);
 PageCtrl.Parent := Self;
 PageCtrl.Name := 'PageCtrl';
 PageCtrl.Top := 100;
 PageCtrl.Left := 100;
 for ind:=0 to 3 do
  begin
   TabSheet := TTabSheet.Create(PageCtrl);
   TabSheet.PageControl := PageCtrl;
   TabSheet.Name := 'TabSheet'+IntToSTr(Ind);
  
   StringGrid := TSTringGrid.Create(Self);
   StringGrid.Parent := TabSheet;
   StringGrid.Name := 'StringGrid'+IntToSTr(Ind);
  end;

Saluditos

[GerTorresM]

Te agradezco la solución propuesta me parecio excelente