Si lo haces con ShowModal, no necesitas ningún evento, y es lo que estaba explicando
dec.
Código Delphi
[-]
procedure TForm1.Button1Click();
begin
Form2 := Tform2.Create(nil);
try
if Form2.ShowModal = mrOK then
showmessage(' es ok')
else
Showmessage(' se ha cancelado');
finally
Form2.Free;
end;
end;
Cuando llegue al Form2.ShowModal, el código de Form1 se quedará
congelado, y hasta que no se asigne la propiedad Form2.ModalResult, no se volverá al código de Form1. En este caso, no necesitas ningún evento.
Form2.ModalResult se asigna cuando:
- Tienes un BitBtn en Form2. La propiedad Kind del BitBtn indica el modalResult que se devolverá al hacer clic sobre este botón.
- Cierras el form2 (creo que se devuelve mrCancel).
saludos