Cerrar Form2 desde Form3

[ethangio]

El codigo es bastante sencillo.

Unit1:

Código Delphi [-]
uses unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.ShowModal;
end;

Unit2:

Código Delphi [-]
uses unit3;

procedure TForm2.Button1Click(Sender: TObject);
begin
  Form3.ShowModal; // Desde aqui SI funciona cerrar desde Form3
end;

procedure TForm2.FormActivate(Sender: TObject);
begin
  Form3.ShowModal; // Desde aqui NO funciona cerrar desde Form3
end;

Unit3:

Código Delphi [-]
uses unit2;

procedure TForm3.Button1Click(Sender: TObject);
begin
  form2.Close;
  form3.Close;
end;