Funcion generica para crear varios forms

[[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.

[[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

[[jcarteagaf]]

Pues a mi me evita el tener que escribir:

Código Delphi [-]
frmVentas := TfrmVentas.create(Application);
if frmVentas.Showmodal = mrOk then
  Hacer_Algo
else
  Hacer_Otra_Cosa

Simplemente digo

MostrarForma(Tfrmventas);

Y si necesito saber si el usuario presiono Ok o Cancelar

le digo

Código Delphi [-]
if ShowForm(tfrmOtraForma) then
   ....

Imaginate cuantas lineas me ahorro en una aplicación con muchas formas.

Tambien tengo este otro procedimiento que me sirve para aplicaciones MDI:

Código Delphi [-]
Procedure ShowFormMDI(TfrmClass: TFormClass;bMultiInstace : boolean);
var
  i : SmallInt;
  F : TForm;
begin
  if not bMultiInstace then
    for i := Application.MainForm.MDIChildCount - 1 downto 0 do
    begin
      F := Application.MainForm.MDIChildren[i];
      if F.ClassType = TfrmClass then
      begin
        if F.WindowState = wsMinimized then
           F.WindowState := wsNormal;
        F.BringToFront;
        Exit;
      end;
    end;
  with TfrmClass.Create(Application) do
    Show;
end;

Crea la forma y la muestra, y si ya existe y permito multiples instancias, la muestra.

Saludos.