Ventana MDIChild y ventana de aviso

[M. FM.]

Hola, gluglu:

Muchas gracias por tu respuesta. He probado a hacerlo así, pero ahora no puedo mostrarla con el ShowModal porque me sale un mensaje de error, 'Cannot make a visible window modal'.

Probé a mostrarla con Show, pero entonces no se cierra cuando el usuario pincha en Aceptar. ¿Tengo que poner algo en el procedimiento que devuelve el resultado?

procedure TMensaje.btnAcepClick(Sender: TObject);
begin
  ModalResult := mrOk;
end;

procedure TMensaje.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

Esos son los procedimientos que tengo, no sé si debería cambiar alguno de ellos.

Saludos y muchas gracias,
M.

[[gluglu]]

'Cannot make a visible Window Modal' te está indicando que algún sitio has creado ya previamente la ventana Mensaje.

Comprueba tus opciones de proyecto para ver si se crea automáticamente o no al inicio del programa.

Si no es así, es porque la estás creando en alguna parte de tu programa, y no lo tienes en cuenta que ya está visible porque previamente la has mostrado con Show.

En principio los procedimientos que indicas para salir son correctos.