[__cadetill]

Empezado por triniti

Tengo una duda que me está fastidiando desde hace un rato

Define rato



Al grano. Es de suponer que haces algo así:

procedure TfmMenu.Button1Click(Sender: TObject);
begin
  MiForm := TMiForm.Create(Application);
  try
    try
      MiForm.ShowModal;
    finally
      FreeAndNil(MiForm);
    end;
  except
    on E: Exception do
      ShowMessage(E.Message);
  end;
end;

pues puedes hacer algo así:

procedure TfmMenu.Button1Click(Sender: TObject);
begin
  MiForm := TMiForm.Create(Application);
  try
    try
      MiForm.ShowModal;
      // -> aqui lo que tu quieras despues de cerrar el formulario
    finally
      FreeAndNil(MiForm);
    end;
  except
    on E: Exception do
      ShowMessage(E.Message);
  end;
end;

Espero te sirva