Forms Hijos

[[Lepe]]

Este tema ha de pasar por una cuestion ineludible:

Si las ventanas hijas pueden estar destruidas, primero debes saber si estan abiertas o no. Así que hay varios métodos para ello, aqui tienes 2:
- Ventanas MDI hijas
- Ayuda con App Mdi

Y despues de esto, hay varias soluciones:
1- Poner los uses de las 2 ventanas en el apartado de Implementation, para que el compilador no se queje de referencias circulares. Y desde una ventana, hacer referencia a la otra. (comprobando que exista la forma a la que quieres acceder).

2- Que la ventana hija informe al padre (mediante un mensaje, una variable Boolean un ActionList etc.) y la ventana padre sea la que compruebe que existe la ventana que quieres bloquear. (Asi evitarías las referencias "locas" de una ventana a otra, todas las ventanas informan al padre)

3- Crear un Menasje específico, de tal forma que al crear una ventana, ésta chequea si existe la de destino, envie el mensaje, y ahora en ese evento (con parámetros personalizados, centralizas todo el trabajo.

La 1ª opcion es la más facil de implementar, pero en casos complejos, te puede dar un yuyu.
La 2ª opcion es algo más "ordenada", por aquello de centralizar las cosas.
La 3ª opcion necesita más planificación y puede que más trabajo, pero es la más "eficiente" en casos complejos.

Según mi opinión, claro, espero que haya gente que no esté de acuerdo

Y si alguien tiene más ideas, serán bien recibidas ¿que no?

Tú decides, Saludos

[marcoszorrilla]

Para el simple cambio de una propiedad de un botón que en un principio pregunta, a parte de lo dicho por Lepe, se me ocurre la creación de una variable pública a estás 2 ventanas susceptibles de recibir cambios desde el exterior y cada vez que se muestren o se creen en el evento correspondiente de estas 2 ventanas comprobar el valor de la variable en cuestión y reaccionar como corresponda.

Código Delphi [-]
        if lDisponible = True then
        MiBoton.Enabled:= True
        else
  MiBoton.Enabled:= False;

Un Saludo.

[djj]

Solo con añadir los form a las uses, no es suficiente xq al intentar cambiar la propiedad del boton de un form hijo al otro da error de access violation.

[[Lepe]]

porque la ventana de destino no está creada todavia

[djj]

si esta creada, mira yo hago lo siguiente, tengo un Form1 que es el form primcipal, y luego tendo dos form hijos, form2 y form3, yo desde form 1 con un boton creo y muestro form2 y desde form2 con otro boton creo y muestro el form3, form2 y form3 son hijos de form1. estando los dos formularios hijos creados yo desde form3 no puedo cambiar ninguna propiedad del form2.

[jhonny]

Bueno, creo que seria conveniente que pusieras el codigo que estas usando en los tres botones de los tres formularios...

Pues con lo que te ha dicho Lepe y con la sugerencia de Marcos ya debe bastar.

[djj]

Veamos...

Form1:

uses Unit2, Unit3; 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  With TForm2.Create(Self) Do
	Begin
	  Show;
	end;
end;

Form2:

uses Unit1, Unit3;
 
procedure TForm2.Button2Click(Sender: TObject);
begin
  With TForm3.Create(Self) Do
	Begin
	  Show;
	end;
end;

Form3:

uses Unit1, Unit2;
 
procedure TForm3.Button3Click(Sender: TObject);
begin
  Form2.Button2.Enabled := False;
end;

Tenemos el Form1 que es el form padre, Form2 y Form3, los form hijos.
- Desde el Form1 creamos y mostramos el Form2.
- Desde el Form2 creamos y mostramos el Form3.
- Desde el Form3 intentamos cambiar el enabled del Boton que esta en el Form2 y nos da Access Violation.

¿por que?...