Problemas crear MDIchild

[delphi.com.ar]

Empezado por bbjb

Tengo una aplicación con un formulario fsMDIForm, que al pulsar una opción de menu genera un formulario fsMDIChild a través del siguiente código

Código Delphi [-]
If Fchild = NIl Then 
Begin
    Application.CreateForm(TFdevol_cobros,FChild);
    FChild.FreeNotification(Self); 
    FChild.Show; 
    FChild.Free; 
 End;

Si lo crea, pero lo destruye inmediatamente. Recuerda que si el formulario no es modal, el hilo de ejecución no se detiene en el show. Reemplaza todo tu código por:

Código Delphi [-]
If Fchild = nil Then 
begin
  Application.CreateForm(TFdevol_cobros,FChild);
end;

Empezado por bbjb

Pués no me crea el formulario auxiliar, sólo lo hace si previamente a la linea Application.Create... coloco esta otra:

Fchild := TFdevol_cobros.Create(Self);

En este caso te queda un form porque estas creando dos instancias de la clase y liberando solo una.

Empezado por bbjb

Algo también curioso es que cuando me muestra el formulario hijo, lo hace con unas dimensiones distintas a las establecidas en tiempo de diseño, algo extraño verdad?

No, no es extraño es así. Los MDIChild tiene un default size, que es el tamaño que ves cada vez que se crea uno, si queres que tu TForm no adopte ese tamaño y mantenga el de diseño, puedes cambiar el valor de la propiedad Position, por ejemplo ponerlo en poDefaultPosOnly para que mantenga el tamaño de diseño pero no la posición.

Saludos!

[bbjb]

Chapó para delphi.com.ar

De todas formas, si hago lo siguiente:

If Fchild = nil Then
begin
Application.CreateForm(TFdevol_cobros,FChild);
end;

Consigo ver en pantalla el formulario, pero si añado más linea de código continuará ejecutándose.
Entonces, y si no es mucho pedir, ¿como haces tú para continuar con el programa?, no se si me explico, lo que quiero saber es como hacer la llamada al formulario para que se ejecute y mantenga en pantalla y no continue con la programación que pueda haber posterior.

Si no me explico me lo decís, gracias.

[delphi.com.ar]

Empezado por bbjb

Chapó para delphi.com.ar

Traducción para eso por favor

Empezado por bbjb

Consigo ver en pantalla el formulario, pero si añado más linea de código continuará ejecutándose.
Entonces, y si no es mucho pedir, ¿como haces tú para continuar con el programa?, no se si me explico, lo que quiero saber es como hacer la llamada al formulario para que se ejecute y mantenga en pantalla y no continue con la programación que pueda haber posterior.

¿No necesitaras que el formulario sea modal? (Ver método ShowModal)
Por ejemplo... ¿Qué código quieres agregar despues que se destruye el form?

[bbjb]

chapó.
1. interj. U. para expresar admiración por algo o por alguien.

Seguro que me he equivocado en el planteamiento del programa. Quería tener un programa recogido donde en un formulario principal (MDIForm) se mostrase el menú y poder seleccionar las distintas opciones disponibles.

Estas opciones se abrirían dentro del formulario principal a través de form.auxiliares (MDIChild) y serían pantallas con filtros donde permitirían al usuario sacar listados.
Dicho esto, lo que quiero es sacar una pantalla interactiva con el usuario y que cuando este decida salir de ella, obtener los datos introducidos por este.

Por lo que veo, mi idea estaba muy mal planteada

[roman]

¿Muy mal planteada? Pues no estaría tan seguro. Quizá (digo quizá porque no entiendo del todo lo que deseas) tu problema está sólo en querer destruir el formulario tan sólo lo muestras. Si lo que te preocupas es cúando lo destruyes pues tienes varias opciones. Una es crear el formulario tal como te dice Federico y omitir la llamada a Free. Al crearlo de esa forma, el objeto Application será el dueño del formulario y por tanto se encargará de destruirlo cuando él mismo se destruya- cuando termine la aplicación. También puedes manipular el evento OnClose del formulario y poner Action := caFree con lo que el formulario se destruirá tan pronto se cierre.

// Saludos

[bbjb]

¿Muy mal planteada? Pues no estaría tan seguro.....

Exacto, eso es lo he probado a hacer nada más mandar el correo y creo que es el camino que debo coger para continuar con la aplicación. He aclarado las ideas (gran parte de culpa la tienen ustedes) y he visto la salida al "problema"

Gracias por vuestra ayuda.

[bbjb]

Perdonad de nuevo, pero cuendo creía tenerlo resuelto me surge un problema y seguro que es una chorrada pero llevo un buen rato con el y no consigo solucionarlo.

Estoy definiendo el form.principal como MDIForm, el auxiliar como MDIChild y cuando ejecuto el siguiente código no muestra el form.auxiliar:

Código Delphi [-]
 If Fchild = nil Then
 begin
    Application.CreateForm(TFdevol_cobros,FChild);
 end;

Donde estoy cometiendo el error, puede tratarse de una propiedad que estoy olvidando???
Gracias por la ayuda.