Formularios

[*Caro*]

Miles de gracias por responder gluglu, delphi.com.ar, ArdiIIa, dec.

He estado viendo sobre Owner en este momento porque no lo habia manejado, funciona como quiero pero al final cuando cierro mi formulario principal me sale un error

Para mi ejemplito, antes de hacer el showmodal le digo que form2 sera el propietario de form4 y lo mismo hago para form3

Código Delphi [-]
 form2.InsertComponent(Form4);
 form4.ShowModal;

y cuando quiero ver quien es el propietario lo hago asi

Código Delphi [-]
 if form4.Owner = form2 then
  showmessage('viene de formulario 2');

 if form4.Owner = form3 then
  showmessage('viene de formulario 3');

todo bien, me sale de donde viene la llamada, pero como decia antes cuando cierro el form1 que es el principal me sale 'Exception EAccessViolation in module Project1.exe at 00000000. Access violation at address 000000. Read of address 000000'

que estoy haciendo mal, me podrian ayudar por favor.

[[ArdiIIa]]

Empezado por Caro

Código Delphi [-]
 form2.InsertComponent(Form4);
 form4.ShowModal;

todo bien, me sale de donde viene la llamada, pero como decia antes cuando cierro el form1 que es el principal me sale 'Exception EAccessViolation in module Project1.exe at 00000000. Access violation at address 000000. Read of address 000000'

No se... es la primera vez que veo un InsertComponent para visualizar un formulario.

¿Probaste el código que te puse antes?

[*Caro*]

Hola ArdiIIa, no lo habia probado tu ejemplo lo siento, queria resolverlo con la propiedad Owner, pero creo que no lo he entendido bien, ahora si probe tu ejemplo me funciona muchisimas gracias, lo hare de esa forma.

[[gluglu]]

Yo lo veo más fácil todavía ...

En tu form 'llamante' lo que tienes es que simplemente crear y mostrar modalmente el Form4 así :

Código Delphi [-]
Form4.Create(Self);
Form4.ShowModal;

Y donde lo necesites en el Form4, preguntas por el Form4.Owner.

[*Caro*]

Hola cuando creo mi formulario, lo hago de esta forma

Código Delphi [-]
 Application.CreateForm(TForm4, Form4);
 try
    Form4.ShowModal;
 finally
   Form4.Free;
 end;

de esta no lo habia hecho, al hacerlo asi me sale otro AccessViolation

Empezado por gluglu

Form4.Create(Self);

Si me podrias explicar un poquito mas sobre Owner te estaria muy agradecida, espero no estar molestando mucho, pero no me queda claro lo del Owner.

Saluditos

[[gluglu]]

Todo Formulario (o cualquier otro componente), al ser creado tiene su 'dueño' (Owner), que será aquel componente que lo crea.

Al ejecutar (perdón, fui demasiado rápido en el hilo mío anterior, y la versión correcta está qui debajo) :

Código Delphi [-]
Form4 = TForm4.Create(Self);

lo que estás indicando es que cree una instacia del Form4 y la almacene en la variable Form4. Al indicarle el parámetro 'Self', lo que estás indicando es que el dueño será el propio formulario 'llamante'. Self indica que es el propio formulario donde se ejecuta esa instrucción el que debe sustituir al propio parámetro Self, y por ello el propio formulario llamante se convierte en 'dueño' u Owner de la instancia Form4 que acabas de crear.

Si pusieras

Código Delphi [-]
Form4 = TForm4.Create(Application);

el 'dueño' u Owner de Form4 sería Application, es decir, el Formulario principal de tu aplicación.

Para qué sirve el 'dueño' u Owner ? Para liberar de memoria el elemento que se ha creado cuando se destruya el Owner, en caso de no hacer un Free explícito.

Si creaste Form4 con el parámetro Self (y pongamos por ejemplo que lo estás creando dentro de Form1), al hacer un Free de Form1, también se eleminaría automáticamente de memoria el correspondiente Form4.

Si lo hubieras creado con el parámetro Application, hasta no cerrar el formulario principal, es decir, hasta no cerrar la aplicación completa, tu instancia de Form4 no se liberaría de memoria.

A su vez, la propiedad Owner sirve precisamente para preguntar por quién fue llamado un Formulario (por ejemplo).

Si creas Form4 dentro de Form1 con :

Código Delphi [-]
Form4 = TForm4.Create(Self);

le indicas con Self que el Owner es Form1.

Aclaración : Podrías perfectamente poner

Código Delphi [-]
Form4 = TForm4.Create(Form1);

y el efecto conseguido sería el mismo ya que le indicas que el Owner de la instancia Form4 creada es Form1. A lo mejor así lo ves más directamente.

Para terminar, como el Form lo vas a mostrar Modalmente, personalmente me queda más claro que en el propio Form1 (en el ejemplo que estoy poniendo, al ser el que llama al Form4), se ejecute el Form4.ShowModal y no como lo ha indicado ArdiIIa, aunque sobre gustos no hay nada escrito.

En cualquier caso, hasta no salir de Form4 (al ser Modal), se continuará con la siguiente línea de código, independientemente si la has puesto dentro del propio Form4 (como indica ArdiIIa) o si has puesto el Form4.ShowModal en el propio form llamante, en nuestro caso el Form1.

Espero haberte servido con mi explicación.

Saludos

[*Caro*]

Miles de gracias amigo gluglu, buenisima tu explicación, ahora si me funciona y esta entendido.

Saluditos

[[gluglu]]

Empezado por Caro

Miles de gracias amigo gluglu, ...