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 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;