Ver Mensaje Individual
  #2  
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
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;
Responder Con Cita