Aplicacion Multiformulario

[Sudamericano]

ok, te debes haber percatado que al ejecutar el proyecto se crean y se muestran todos los formularios, esto no es precisamente lo que uno espera, bueno, hay viene la solucion :
* lo primero que debes hace es ir al menu project/options; se cargara una ventana anda a la pestaña "Form" en el listview de la izquierda donde dice "auto-create form" quita todos los formularios menos el Principal

* segundo paso para pode rmostrar (crear) un formulario hijo debes poner el codigo siguiente :

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

Explicacion :

if not Assigned( FrmCliente) then = verificas que el formulario no este creado
"FrmCliente" = nombre del formulario
"Aplication" = propietario del formulario hijo
FrmCliente.ShowModal = Muestra el formulario


Ahora en el evento "Close" del formulario "FrmCliente" pones lo siguiente

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

prueba estos pasos primero, cuando ya te funcione, avanzamos con las opciones de cascada, etc.. otras cosa que version de DELPHI USAS ?? saludos

[mierda]

Hola, estaba probando con este tipo de ventanas, y resulta que si pongo un form como padre con un boton , y le digo que me cree otro form, sigo viendo el boton por debajo del form que acabo de crear, es normal esto?!

Un saludo y gracias.

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

[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