Forms Hijos

[[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?...

[jhonny]

Ok, prueba a hacerlo todo asi:

En primer lugar si tu aplicacion es MDI no necesitas el Show...

Form1:

Código Delphi [-]
uses Unit2; // Si no abres el form3 directamente 
               //desde el 1 no hay necesidad de tenerlo en el uses

procedure TForm1.Button1Click(Sender: TObject);
begin
  form2 := TForm2.Create(Application);
end;

Form2:

Código Delphi [-]
uses Unit3; // Si no trabajaras con el form1 directamente 
               //no hay necesidad de tenerlo en el uses...

procedure TForm2.Button2Click(Sender: TObject);
begin
  form3 := TForm3.Create(Application);
end;

Form3:

Código Delphi [-]
uses Unit2; // Si no trabajaras con el form1 directamente 
               //no hay necesidad de tenerlo en el uses...

procedure TForm3.Button3Click(Sender: TObject);
begin
  Form2.Button2.Enabled := False;//Asi esta bien...
end;

espero te sirva.

[[Lepe]]

El por qué del asunto te lo está diciendo jhonny indirectamente, el problema lo tenias aqui:

Código Delphi [-]
  With TForm2.Create(Self) Do
  Begin
    Show;
  end;

que Form2 está creado??? pues no, no lo está, yo no lo veo por ninguna parte en ese código. ¿Entiendes a lo que me refiero?

Lo que está creado es una ventana del tipo TForm2, pero la variable Form2 no está apuntando a esa ventana.

En principio, Form2 está declarada como una variable, y debería estar apuntando a nil (al iniciar el programa), traspasar un puntero nulo, es el access violation que te mostraba.

Solo un comentario más a lo aportado por jhonny. Como bien dices el padre de todas las ventanas es la ventana MDI, pero el dueño de cada ventana, tal y como lo ha puesto jhonny es Application, por tanto, al cerrar la aplicacion, intentará destruir Form1, Form2 y Form3.

Desconozco si tienes puesto caFree en el Onclose de las ventanas hijas, y para ser honesto, desconozco si te dará error tal y como está. Puede que al terminar la aplicacion no te de fallos porque el objeto Application "sepa" que las ventanas ya han sido destruidas, pero repito, no lo sé.

Si además deseas que al cerrar Form1 se cierren Form2 y Form3 automáticamente, entonces solo tienes que cambiar de dueño Form2 así: TForm2.Create(Form1) y el dueño de Form3 que sea el Form2.

Espero que te haya servido.

Saludos.