Ver Mensaje Individual
  #4  
Antiguo 22-02-2017
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Reputación: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
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;
Responder Con Cita