Aplicacion Multiformulario

[roman]

Normal, no lo sé. Vamos, supngo que sí pero el efecto es bastante feo. Realmente en las aplicaciones MDI lo único que "debería" haber en el área cliente del formulario padre son ventanas hijas y no controles propios. Nótese que digo área cliente, de manera que se pueden colocar paneles u otros controles alineados a uno de los extremos del formulario. Lo que sobra es el área cliente.

// Saludos

[roman]

Empezado por Sudamericano

Código Delphi [-]
procedure TFrmKey.ShowFrmCliente;
begin
if not Assigned( FrmCliente) then
FrmCliente:=TFrmCliente.Create(Application);
FrmCliente.ShowModal;
end;

Esto es algo raro ¿no? Un formulario mdi hijo, al no poderse ocultar se muestra apenas se crea, de manera que no es necesario mostrarlo explícitamente. De hecho, si se llama a ShowModal se obtiene el error:

"Cannot make a visible window modal"

Pero aún suponiendo que se pueda, queda medio extraño una ventana hija modal ¿qué no?

// Saludos

[Sudamericano]

ok si es un error, solo se debe poner lo siguiente :

Código Delphi [-]
procedure TFrmKey.ShowFrmCliente;
begin
  if not  Assigned(FrmCliente) then
  FrmCliente:=TFrmCliente.Create(Application);
  FrmCliente.Show;
end;

;

lo hize de memoria, por eso me equivoque, sorry

[roman]

Esteee..., es que el FrmCliente.Show también sobra (no hace daño pero no es necesario). Y no pidas disculpas que no era regaño Si así lo pareció pido disculpas.

// Saludos

[Sudamericano]

te puedo asegurar que la linea no esta de mas, toma en cuenta que estoy creando y destruyendo los Form segun lo demanda,

[roman]

Haz la prueba. Yo te aseguro que sí está de más. En formularios normales sí que es necesaria pero los formularios MdiChild se hacen automáticamente visibles apenas se crean.

// Saludos

[grone35]

Gracias Sudamericano, creo que vamos avanzando positivamente con este tema! Tambien gracias a roman por sus aportes y si tiene razon en cuanto al aporte sobre la aparicion del formulario tipo modal

(FrmCliente.ShowModal;)

pues presento el error que el menciona, pero pues si suprimimos esta linea el codigo funciona.

Continuando con el tema mientras aplicaba evento "Close" del formulario "FrmCliente" tuve el problema que no podia volver a abrir el formulario. De casualidad se me ocurrio adicionar una linea en el codigo de creacion del formulario hijo de esta manera :


procedure TFrmKey.ShowFrmCliente;
begin
FrmCliente := nil;
if not Assigned( FrmCliente) then
FrmCliente:=TFrmCliente.Create(Application);
FrmCliente.ShowModal;
end;

Y con esto pude solucionar el invonveniente, pero no se que problemas pueda traer y pues quiesiera saber que significa el "nil".

Sudamericano, yo estoy usando Delphi 7 y pues creo que podemos ir avanzando en lo del ordenamiento de los formularios secundarios (cascada,..)


Muchas Gracias!

[roman]

Además de que en el código que pegas sigues usando el ShowModal, el problema es que al poner FrmCliente := nil, la sdiguiente condición siempre va a ser cierta así que siempre vas a crear la ventana, exista previamente o no. El nil significa simplemente que la variable FrmCliente no apunta a nada, que no tiene ninguna referencia.

// Saludos

[Sudamericano]

Como primer punto quiero aclarar porque pongo

Código Delphi [-]
Frmcliente.Show;

primer caso :si no existe; se crea y se muestra
segundo caso : si si hubiran varios form hijos lo que logra la linea mencionada es que el formulario "FrmCliente" se muestre por encima de todos.


otro punto es que en el evento close debes destruir el formulario,

Código Delphi [-]
 
procedure TFrmCliente.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Action := Cafree;
 FrmCliente := nil;
end;

con eso te aseguraas de destruir el frmcliente

saludos

[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