Interfaz de usuario "moderna"

[cloayza]

Lo de tener varios TForm dentro de un TPageControl u otro Form es sencillo.

El wndForm principal tendrá un TPageControl

Código Delphi [-]

Procedure TwndForm.CreateForm(FormClass:TFormClass; AParent:TWinControl; AColor:TColor; AFont:TFont);
Begin
     With FormClass.Create(Application) Do
     Begin
          Color      := AColor;   {Color del Form}
          Font       := AFont;   {Fuente del Form}
          BorderIcons:= [];     {Form sin bordes}
          BorderStyle:= bsNone; {Bordes del Form si estilo}
          Align      := alClient; {Form alineado al cliente}
          Parent     := AParent; { Padre del Form}
     End;
End;

procedure TwndForm.PageControlOnChange(Sender:TObject)
begin
        {Si la página activa ya tiene un form creado no debe crear otro}
        if (PageControl.ActivePage.ControlCount<>0) then
           Exit;


       case PageControl.TabIndex of
          0:Begin 
                    CreateForm( TForm1, PageControl.ActivePage, Self.Color, Self.Font);

                    TForm1(PageControl.ActivePage.Controls[0]).Show;
            End;
          1:Begin 
                 CreateForm( TForm2, PageControl.ActivePage, Self.Color, Self.Font);

                 TForm2(PageControl.ActivePage.Controls[0]).Show;
            End;
       end;

end;

Espero te oriente en lo que deseas realizar.

Saludos cordiales

[ArtPortEsp]

Empezado por cloayza

Lo de tener varios TForm dentro de un TPageControl u otro Form es sencillo.

El wndForm principal tendrá un TPageControl

Código Delphi [-]
Procedure TwndForm.CreateForm(FormClass:TFormClass; AParent:TWinControl; AColor:TColor; AFont:TFont);
Begin
     With FormClass.Create(Application) Do
     Begin
          Color      := AColor;   {Color del Form}
          Font       := AFont;   {Fuente del Form}
          BorderIcons:= [];     {Form sin bordes}
          BorderStyle:= bsNone; {Bordes del Form si estilo}
          Align      := alClient; {Form alineado al cliente}
          Parent     := AParent; { Padre del Form}
     End;
End;

procedure TwndForm.PageControlOnChange(Sender:TObject)
begin
        {Si la página activa ya tiene un form creado no debe crear otro}
        if (PageControl.ActivePage.ControlCount<>0) then
           Exit;


       case PageControl.TabIndex of
          0:Begin 
                    CreateForm( TForm1, PageControl.ActivePage, Self.Color, Self.Font);

                    TForm1(PageControl.ActivePage.Controls[0]).Show;
            End;
          1:Begin 
                 CreateForm( TForm2, PageControl.ActivePage, Self.Color, Self.Font);

                 TForm2(PageControl.ActivePage.Controls[0]).Show;
            End;
       end;

end;

Espero te oriente en lo que deseas realizar.

Saludos cordiales

Muchas gracias cloayza!, (aunque supongo es una pregunta obvia) cual seria la diferencia en hacerlo con un TTabcontrol?, cual opción es mejor?