Funcion generica para crear varios forms

[[BlueSteel]]

Empezado por jcarteagaf

Yo uso esta funcion


Código Delphi [-]function MostrarForma(TfrmClass: TFormClass) : boolean;
begin
with TfrmClass.Create(Application) do
begin
result := ShowModal = mrOk;
Free;
end;
end;





y la uso asi


Código Delphi [-]MostrarForma(TfrmVentas);



Espero que te sirva.

Hola jcarteagaf...

disculpa mi ignorancia... pero para que sirve esta función (no me digas que es para crear un formulario..... ).... digo tecnicamente que puedo mejorar si lo aplico en un sistema...

Salu2