Hola,
Hace tiempo preparé un "ejemplo" que me parece que puede serte útil en este caso. El código es muy sencillo, quizá demasiado, no obstante, creo que puede servirte. Adjunto el archivo que contiene el ejemplo listo para compilarse. El siguiente es el código del formulario principal de dicho ejemplo:
Código Delphi
[-]
unit UfrmPrincipal;
interface
uses
Forms, ComCtrls, Classes, Controls;
type
TfrmPrincipal = class(TForm)
pcPaginas: TPageControl;
tsPrimeraPagina: TTabSheet;
tsSegundaPagina: TTabSheet;
tsTerceraPagina: TTabSheet;
procedure FormCreate(Sender: TObject);
end;
var
frmPrincipal: TfrmPrincipal;
implementation
{$R *.dfm}
uses
UfrmNumeroUno,
UfrmNumeroDos,
UfrmNumeroTres;
procedure TfrmPrincipal.FormCreate(Sender: TObject);
begin
frmNumeroUno := TfrmNumeroUno.Create(Self);
with frmNumeroUno do
begin
Parent := tsPrimeraPagina;
BorderStyle := bsNone;
Align := alClient;
Show;
end;
frmNumeroDos := TfrmNumeroDos.Create(Self);
with frmNumeroDos do
begin
Parent := tsSegundaPagina;
BorderStyle := bsNone;
Align := alClient;
Show;
end;
frmNumeroTres := TfrmNumeroTres.Create(Self);
with frmNumeroTres do
begin
Parent := tsTerceraPagina;
BorderStyle := bsNone;
Align := alClient;
Show;
end;
end;
end.