Cambiar propiedad de componente del formulario padre al cerrar el formulario hijo

[[eduarcol]]

Despues del dolor de cabeza que me dio tratar de entender esto resumo:
Quieres desde Form3 llamada desde Form2 cambiar algo en Form2, si se puede de hecho se llama referencias circulares:

Empezado por IAN MARTEENS

Cuando existen referencias circulares entre pares de unidades, solo hay que tener en cuenta una regla: debido a problemas tecnicos de compilacion, no se admiten referencias circulares cuando ambas unidades se refieren entre si desde sus respectivas interfaces. una de las unidades debe referenciar la otra desde el uses de la seccion de implementacion

por ejemplo:

unit2 = Form2 //Aqui se llama a form3
unit3 = Form3

en la interface de unit2 declaras a unit3

en la implementacion de unit 3 quedaria algo asi

Código Delphi [-]
implementation
uses unit2;

y en el evento on close de form3 ya podras referenciar a Form2


Si no es este el problema o entendi mal te agradezco me digas para poder seguir ayudandote

[[Lepe]]

Por cierto, bonito Access Violation tienes aquí:

Código Delphi [-]
          FormaMenu:= Nil;
          FormaMenu.Free;

Te deben gustar mucho cuando repites ese código

Te sugiero cambies esas dos líneas por: FreeAndNil(FormaMenu);

Saludos

[Neftali [Germán.Estévez]]

Tal vez es darle muchas vueltas al caso, pero si por lo que sea no puedes añadir al form1 al uses del form2 o necesitas agrupar el código, puedes añadir un nuevo evento al segundo formulario y enlazarlo desde el primero.

En el formulario hijo añades un evento

Código Delphi [-]
    //: Evento que lanzaremos al cerrar
    property OnCloseForm:TNotifyEvent read FOnCloseFrom write FOnCloseFrom;

Y luego desde cualquier otro formulario puedes enlazarlo. Así cuando cierras el form hijo, salta este evento y ejecutas el código necesario.
La ventaja que le veo es que de esta forma la programación que debes hacer en el padre al cerrar el form hijo está programada dentro del padre.

No se si me he explicado. Mejor os adjunto el ejemplo; Lo subo al FTP.
Añadir eventos en forms.ZIP

[jzginez]

Antes que nada les agradesco la ayuda

Empezado por eduarcol

Despues del dolor de cabeza que me dio tratar de entender esto .........

a mi me sigue doliendo y aun no se como darme a entender

Empezado por Lepe

Por cierto, bonito Access Violation tienes aquí:.....
Te sugiero cambies esas dos líneas por: FreeAndNil(FormaMenu);.......
Saludos

Las escribia alrevez

Código Delphi [-]
 FormaMenu.Free;
FormaMenu:= Nil;

y ahí si me marcada error pero lo voy a cambiar por la que me recomiendas gracias.

En cuanto al lo que estoy intentando hacer con mi sistema dicen que en la simplesa esta la luz, así que mas facil les mando el código fuente (ftp://200.67.246.247/deportes/ copien y pegen la dirección porque si no no se conecta a mi servidor ftp), lo que quiero es que en la forma FrmGB programar el evento onclose y en este decirle que busque la forma FrmFBMenuXXXXXX y de esta forma el speedbutton que tiene su propiedad down en verdadero y la ponga en falso o que ejecute su evento click (esto seria lo ideal).

las condiciones de uso del sistema, en el primer messagebox hay que responder que No, en el menú modulo la única opción que esta programada es la de catálogos y de esa los primeros 4 Speedbutton, en cuanto a los componestes y accesos a base de datos los borre para que no les den esto problemas.

Gracias

[roman]

Empezado por jzginez

Las escribia alrevez

Código Delphi [-]
FormaMenu.Free;
FormaMenu:= Nil;

y ahí si me marcada error pero lo voy a cambiar por la que me recomiendas gracias.

Debes estar cargando algún error que no creo que FreeAndNil solucione. FreeAndNil no hace otra cosa que Free and Nil , esto es, las líneas que ya tienes. Al intercambiarlas (primero nil y luego Free) no notas ningún error porque simplemente estás haciendo un Free de un objeto nil, lo cuál es seguro, y de hecho es la razón por la que debe usarse Free en lugar de Destroy:

Empezado por Ayuda de Delphi

Free is successful even if the object is nil; so if the object was never initialized, Free won’t result in an error.

Pero claro que entonces el objeto al cual apuntaba FormaMenu, se queda en la memoria por lo cual tampoco es una solución.

// Saludos