Ver Mensaje Individual
  #2  
Antiguo 30-05-2018
Avatar de ethangio
ethangio ethangio is offline
Miembro
 
Registrado: jul 2008
Posts: 63
Reputación: 16
ethangio Va por buen camino
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;
Responder Con Cita