Ver Mensaje Individual
  #4  
Antiguo 04-05-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.112
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
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.
Archivos Adjuntos
Tipo de Archivo: zip ej_020.zip (3,9 KB, 62 visitas)
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita