Aplicacion Multiformulario

[grone35]

Gracias Roman, que pena lo de la ultima linea se me paso lo del ShowModal ya lo he entendido. Y pues entiendo lo que me quieres decir con respecto al "nil". Entonces como se prodria resolver el problema que despues de cerrar el formulario lo pueda volver a abrir.

Saludos

[roman]

Código Delphi [-]
if not Assigned(FrmCliente) then
  FrmCliente := TfrmCliente.Create(Application)
else
  FrmCliente.Show;

Sólo es necesario usar Show si ya está creado para ponerlo al frente (equivale a poner BringToFront) pues el Create automáticamente hará el Show y pondrá el formulario al frente.

// Saludos

[Sudamericano]

codigo roman = 4 lineas

Código Delphi [-]
 
if not Assigned(FrmCliente) then  FrmCliente := TfrmCliente.Create(Application)else  FrmCliente.Show;

Mi codigo = 3 lineas

Código Delphi [-]
 
 if not Assigned(FrmCliente) then  FrmCliente := TfrmCliente.Create(Application)  FrmCliente.Show;

ambos codigos son equivalentes

[roman]

Las líneas al compilador le son indistintas. El punto es que hay un paso de más en la otra manera (Show después de Create). Claro que- como dije al principio -no afecta y seguro que en este caso concreto nadie notará un ciclo más del procesador, pero yo prefiero como norma evitar redundancias. Desde luego es más cuestión de gustos.

// Saludos

[grone35]

Muy buen debate!! Pero compañeros, he tenido el mismo problema con cualquiera de los dos codigos!!! Despues de que cierro el formulario secundario no lo puedo volver a abrir.

saludos!!

[kesu]

Un saludo a todos los foreros, quiza sea un poco tarde para este mensaje, pero espero que le sirva a alguno.

codigo para mostrar form hijas: ( procedimiento)

Código Delphi [-]

procedure mostrarHija(aHija: TFormClass);
var
auxForm: TForm;

begin

auxForm:= Application.FindComponent(Copy(aHija.ClassName,2,255)) as TForm;
if Assigned(auxForm) then
auxForm.Show
else
auxForm.Create(Application);

end;

luego ... si se decea destruir una ventana(form) hija al cerrarla y no solo
minimizarla, solo adicionamos una linea de codigo en el evento OnClose de
esta:

Código Delphi [-]
Action:= caFree;




de antemano pido disculpas si existe algun error en el codigo, lo escribo de
memoria, pero los que tienen el libro de Ian Marteens pueden consultarlo, pues fue en la "Cara Oculta" donde lo lei hace algun tiempo atras.

[[Lepe]]

Parece que el compañero se quedó con el error, despues de 3 semanas supongo que lo habrá solucionado; tambien puede darse el caso de que lo haya "postpuesto".

Reuniendo todo lo dicho, sin entrar en más debates, una solución completa sería:

Código Delphi [-]
// En un toolbar del MDI abrimos la ventana.
procedure TFrmMDI.Toolbutton1Click(Sender:Tobject);
begin
  if not Assigned(FrmCliente) then
    FrmCliente := TfrmCliente.Create(Application)
  else
    FrmCliente.BringtoFront;
end;

// En el evento OnClose del propio FrmCliente añadimos:
procedure TFrmCliente.FormClose(...var action:TCloseaction);
begin
  action := cafree;
  FrmCliente := nil;
end;

Ventajas de este método:
- En la ventana de facturas se puede usar datos de Frmclientes de forma cómoda:

Código Delphi [-]
  if assigned(frmcliente) then
    ShowMessage(frmCliente.Loquesea);

- No necesitamos hacer un bucle para encontrar una ventana, porque tenemos sus referencias Frmclientes, FrmFacturas, etc.

- Solo permitimos una ventana abierta de cada tipo al mismo tiempo. En algunos casos es una desventaja, en otros una ventaja, depende de la filosofía que se quiera seguir.

El método de kesu si tiene un pequeño error, pero al haber sido escrito de memoria, demasiado bien está. Por otra parte, es "la otra filosofía" para trabajar con ventanas MDI, ese método si permite tener varias ventanas FrmClientes abiertas al mismo tiempo, pero tambien tiene sus inconvenientes. Si interesa ese método, pregunten.

Lo que sí es muy importante es no mezclar ambos métodos, porque tendríamos Access Violation, Abstract Error y otras muchas excepciones nada obvias de localizar

Saludos