Formas dentro de Forma principal

[dec]

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.