Yo todos los forms los creo con
Código Delphi
[-]Application.CreateForm(TClaseDelForm, aForm);
Ejemplo para un form
Modal, usando
caFree:
Código Delphi
[-]function ShowFormModal(ClaseFormulario:TFormClass):TmodalResult;
var
Formulario: TForm;
begin
Application.CreateForm(ClaseFormulario, Formulario);
Try
result:=Formulario.ShowModal;
Except
result:=mrCancel;
Formulario.Release;
end
end;
Ejemplo para un form
Modal, usando
caHide:
Código Delphi
[-]function PedirDatos(var Nombre,Direccion:string):boolean;
var
Formulario: TFormNombreDireccion;
begin
Application.CreateForm(TFormNombreDireccion, Formulario);
Try
result:=(Formulario.ShowModal=mrOk);
if result then begin
Nombre:=Formulario.edtNombre.Text;
Direccion:=Formulario.edtDireccion.Text;
end;
finally
Formulario.Release; end
end;
Ejemplo para un form
NO Modal, es mejor que uses
caFree; otra cosa es complicarse la vida:
Código Delphi
[-]procedure ShowForm(ClaseFormulario:TFormClass);
var
Formulario: TForm;
begin
Application.CreateForm(ClaseFormulario, Formulario);
Try
Formulario.Show;
Except
Formulario.Release; raise; end
end;