Error al llamar un form en ShowModal
 

Lo primero, Feliz Navidad :D :D :D :D

Estoy aquí intentando hacer un form con un TCalendar para seleccionar la fecha. Lo intento llamar en ShowModal para que espere a que el form se cierre.. El caso es que recibo un error: Cannot made a visible windows modal.
:(

Código Delphi [-]
procedure TfrmNMVenta.sbFechaClick(Sender: TObject);
var
  frmSeleccionarFecha : TfrmSeleccionarFecha;
begin
  try
    //Creamos el form
    frmSeleccionarFecha := TFrmSeleccionarFecha.Create(Self);
   // Rellenamos las variables del nuevo form con las de este
    If FechaDia  <> '' Then frmSeleccionarFecha.Dia  := FechaDia;
    If FechaMes  <> '' Then frmSeleccionarFecha.Mes  := FechaMes;
    If FechaAnyo <> '' Then frmSeleccionarFecha.Anyo := FechaAnyo;

   //Lo mostramos en modal
    frmSeleccionarFecha.ShowModal;
    
   //Recogemos los resultados
    FechaDia  := frmSeleccionarFecha.Dia;
    FechaMes  := frmSeleccionarFecha.Mes;
    FechaAnyo := frmSeleccionarFecha.Anyo;

   //Lo mostramos
    eFecha.Text := FechaDia+'/'+FechaMes+'/'+FechaAnyo;
  except
    ShowMessage ('Error: No se pudo seleccionar la fecha');
  end;
end;

Gracias por vuetra ayuda! :)

Añado que es un MDIChild

Los forms MDI no pueden mostrarse de forma MODAL.

Hasta luego.

;)

No estoy seguro pero me parece que delphi cree que el form ya esta mostrado y al hacer el showmodal da el error.
Proba cambiando el showmodal por el show, a ver que pasa, si no da el error cambia el modo en que creas el form.

Espero que te sirva

:)

El caso, como comentaba Antonio, es que no se puede poner un formulario fsMDIChild en Modal. He tenido que cambiarlo a fsNormal, pues lo que me interesaba no era que se mostrase el form, sino que se mostrase y detuviese el código hasta que este se cerrase.

Gracias por tu aportación, y... jo jo jo, Feliz Navidad