Cargando Formulario en TPanel
 

Hola: Primeramente darles las gracias por permitirme ser parte de este foro, partiendo de mis pocos conocimientos de delphi me encuentro desarrollando una aplicacion en la cual tengo un Tform el cual cuenta con un TdxNavBar y un TPanel ahora bien cada vez que hago clic en un item del menu este me abre el formulario deseado ejemplo:

Código Delphi [-]
  
  FormAcreditacionPersonalizada := TFormAcreditacionPersonalizada.create(self);     
  FormAcreditacionPersonalizada.parent := pnlMain;     
  FormAcreditacionPersonalizada.Align := alClient;     
  FormAcreditacionPersonalizada.show;

ahora bien cual es mi prgunta, es posible crear alguna clase o procedimientos el cual ya tengo predefinido estas propiedades y al dar clic en el menu este abra el formulario deseado llamando a estas caracteristicas previamente creadas saludos

Hola ryanier

Podria ser algo como esto:

Código Delphi [-]

interface

uses
  Classes, 
  Controls,
  Unidad en donde esta definida el form TFormAcreditacionPersonalizada

procedure MostrarFormAcreditacionPersonalizada(Owner: TComponent; Parent: TWinControl);

implementation

procedure MostrarFormAcreditacionPersonalizada(Owner: TComponent; Parent: TWinControl);
var
  Form: TForm;
begin
  Form := TFormAcreditacionPersonalizada.Create(Owner);   
  Form.Parent := Parent:
  Form.Align := alClient; 
  Form.Show;
end;

Ejemplo de llamada:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  MostrarFormAcreditacionPersonalizada(Self, pnlMain);
end;

Gracias por la prontitud AgustinOrtu ...

Si mira el tema consiste en pasar el nombre del formulario que deseo mostrar para ahorrarme tener que crear uno por cada formulario que tengo haber perdona si no me se explicar haber con mis palabaras que a la hora de llamar el procedimiento solo pase el nombre del formulario y a su vez este tome todas las caracteristicas predefinidas, vaya que sea una cosa generica por cada formulario que llame gracias...

Simplemente pasas la clase del formulario como parametro y listo

Código Delphi [-]
procedure MostrarForm(FormClass: TFormClass; Owner: TComponent; Parent: TWinControl);
var
  Form: TForm;
begin
  Form := FormClass.Create(Owner);   
  Form.Parent := Parent:
  Form.Align := alClient; 
  Form.Show;
end;

Llamada:

Código Delphi [-]
procedure ...;
begin
  MostrarForm(TFormAcreditacionPersonalizada, Self, pnlMain);
end;

Muchas gracias AgustinOrtu me has solucionado un problema que llevo varios dias tratando de implementar GRACIAS MIL..!!!

Con la ayuda de AgustinOrtu y otros colegas el código lo implemente de la siguiente forma

Código Delphi [-]
procedure TFormMain.MostrarForm(FormClass: TFormClass; Owner: TComponent; Parent: TWinControl);
var
  Form: TForm;
  i: Integer;
begin
  for i := 0 to Parent.ControlCount - 1 do
    TForm(Parent.Controls[i]).Release;
  Form := FormClass.Create(Owner);
  Form.Parent := Parent;
  Form.BorderIcons := BorderIcons - [biSystemMenu, biMinimize, biMaximize, biHelp];
  Form.Align := alClient;
  Form.Show;
end;