Ver Mensaje Individual
  #2  
Antiguo 03-03-2010
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 24
Caro Va por buen camino
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
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita