Crear on Objeto en una pestaña específica de un ¨PageControl¨
 

Hola a todos, espero que esta, como en todas las demás veces, me puedan ayudar.

Necesito crear en tiempo de ejecución algunos componentes en una pestaña (Objeto TTabSheet) de un “PageControl” y no encuentro la manera de que se cree en el lugar adecuado.

El código que utilizo es este:

Código Delphi [-]
   
 procedure Conformar(Cuantos : byte; Donde : TTabSheet );
 var
     i : Byte;
 begin
     for i := 1 to Cuantos do
     begin

       With Donde do   //Donde es la pestaña del Page control que paso como parámetro
       begin
          MiObjeto[i] := TMiObjeto.Create(self);
          MiObjeto[i].Name := 'Objeto'+IntToStr(i);
          MiObjeto[i].Top := Pos1;
          MiObjeto[i].Tag := i;
          Pos1 := Pos1 + 54;
          Parent   := Self;
          end;
       end;
 end;

Prueba con algo como esto:

Código Delphi [-]
procedure Conformar(Cuantos : byte; Donde : TTabSheet );
 var
     i : Byte;
 begin
     for i := 1 to Cuantos do
     begin

       With Donde do   //Donde es la pestaña del Page control que paso como parámetro
       begin
          MiObjeto[i] := TMiObjeto.Create(Donde);
          MiObjeto[i].Name := 'Objeto'+IntToStr(i);
          MiObjeto[i].Parent   := Donde;
          MiObjeto[i].Top := Pos1;
          MiObjeto[i].Tag := i;
          Pos1 := Pos1 + 54;         
          end;
       end;
 end;

Gracias seoane tu siempre tan amable y preciso.:D :D