Hola nuevamente!
Después de leer el código que coloqué anteriormente me doy cuenta que es más simple de este otra forma.
Esto lo colocas en el Form1 para capturar el evento OnClose del Form2.
Código Delphi
[-]
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
procedure Miprocedimiento(Sender: TObject; var Action :TCloseAction);
public
end;
var
Form1: TForm1;
implementation
uses
Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
with TForm2.Create(Self) do
try
OnClose:=Miprocedimiento;
ShowModal
finally
Free;
end;
end;
procedure TForm1.Miprocedimiento(Sender: TObject; var Action: TCloseAction);
begin
ShowMessage('Este mensaje aparecerá justo al momento de cerrar el Form2');
end;
Las dos formas son válidas pero esta es más simple.
Un saludo.