Formularios MDI

[walito]

Marcos, hice exactamente lo que me explicaste en el post anterior
pero no hace nada, es decir le asigno un valor a la variable y cuando
quiero ver si realmente lo asigno con el showmessage no me muestra nada, ni un numero cualquiera, es decir me sale el cartel vacio.

En que le puedo estar fallando? es exactamente lo mismo hice..

Saludos

walter

[jhonny]

walito Modifique tu post anterior para que vieras como se aplican las etiquetas Delphi , de esa manera puedes darle click en Editar y ver como lo hice.

[[maeyanes]]

Empezado por walito

Marcos, hice exactamente lo que me explicaste en el post anterior
pero no hace nada, es decir le asigno un valor a la variable y cuando
quiero ver si realmente lo asigno con el showmessage no me muestra nada, ni un numero cualquiera, es decir me sale el cartel vacio.

En que le puedo estar fallando? es exactamente lo mismo hice..

Saludos

walter

En que evento de la forma o sus componentes estás llamado el ShowMessage para mostrar el valor?

[walito]

te explico mas o menos como lo uso yo.
Tengo el form1 que es el form principal del programa y es un MDIForm
despues tengo 2 form, form2 y form3 q son MDIChild.

Bien, cuando arranca el programa se crean todos los form y luego los cierro(close) a todos los MDIChild, osea q ya estan creados.

Luego creo la propiedad que mensiona maeyanes en Form3 y desde form2 hago lo siguiente cuando hago doble click en una grilla por ejemplo:

Código Delphi [-]
Form3.PropiedadNueva := 123;

y cuando muestro el form3 en un boton le pongo:

Código Delphi [-]
showmessage(inttostr(PropiedadNueva));

y no me muestra nada.
Que puedo estar haciendo mal?

gracias

walter

[[maeyanes]]

No veo nada extraño en ese código, pero no indicas como declaras la propiedad. Compara tu código con este que te pongo:

Código Delphi [-]
{ En la sección privada de la forma creas un campo que va a contener el
valor de la propiedad. }
TForm2 = class(TForm)
private
  FPropiedadNueva: Integer;
public
{ Declaras la propiedad pública, la cual usa FPropiedadNueva }
  property PropiedadNueva: Integer
    read FPropiedadNueva
    write FPropiedadNueva;
end;

Con esto debería funcionar lo que estás haciendo.

Comentas que cierras todas las formas MDIChild al momento de ejecutar tu programa, si no quieres que esas formas se creen automáticamente, quítalas de la lista de Auto-create forms de la pestaña Forms en las opciones del proyecto (Shift+Ctrl+F11).


Saludos...

[[Lepe]]

Empezado por walito

Bien, cuando arranca el programa se crean todos los form y luego los cierro(close) a todos los MDIChild, osea q ya estan creados.

Me extraña un poco esa afirmación. Un mdiChild no puede ocultarse así por las buenas, solo minimizarse o destruirse. ¿Los tienes minimizados?

- Si estan minimizados, no tiene sentido que funcione mal.
- si no están minimizados, entonces realmente no estan creados,es decir, se crearon, despues se destruyeron, pero el Form queda con una referencia inválida, de ahí que muestre el valor que pille en memoria.... pero tarde o temprano debería dar un Access Violation.

En el el formClose de cada ventana, añade:

Código Delphi [-]
procedure Tform2.Close(....);
begin
  action := cafree;
  form2 := nil;
end;

Eso para el form2 y 3

Si al hacer ese cambio ves que tu programa empieza a dar Access Violation cada dos por tres, entonces, es que debes estudiar mejor como crear y destruir las ventanas.

Haz este pequeño experimento y nos comentas

saludos