Forms Hijos

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

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