Error al abrir app por segunda vez

[sEngine]

Gracias por la ayuda, lo he puesto tal y como has dicho pero me sigue pasando. Tiene que ser otra cosa

[pgranados]

Empezado por sEngine

Gracias por la ayuda, lo he puesto tal y como has dicho pero me sigue pasando. Tiene que ser otra cosa

Libera tu componente.
FreeAndNil(objeto)

O usa una función para matar todos los procesos desde el administrador de tareas (puedes pedirle el código a chatGPT)

[[duilioisola]]

Ahora queda ir probando cada parte...


1- Prueba quitando las partes de MUTEX.


2- Otra cosa que se me ocurre es que se esté tratando de mostrar algo "demasiado pronto". Pon una pausa donde pones el ShowMessage.
Por ejemplo:

Código Delphi [-]
  with Application do
  begin
    if (ShortDateFormat = 'M/d/yyyy') then
    begin
      ShortDateFormat:='MM/dd/yyyy';
     end;
     // Prueba con esto -----------
     Application.ProcessMessages;
     // ---------------------------
     CreateForm(TDMFJoya, DMFJoya);
     CreateForm(TDM, DM);
     CreateForm(TFMain, FMain);

3- También deberías probar moviendo la parte donde das formato a ShortDateFormat mas abajo. Puede que esto no sea ThreadSafe.

[sEngine]

Empezado por duilioisola

Ahora queda ir probando cada parte...


1- Prueba quitando las partes de MUTEX.


2- Otra cosa que se me ocurre es que se esté tratando de mostrar algo "demasiado pronto". Pon una pausa donde pones el ShowMessage.
Por ejemplo:
Código Delphi [-] with Application do begin if (ShortDateFormat = 'M/d/yyyy') then begin ShortDateFormat:='MM/dd/yyyy'; end; // Prueba con esto ----------- Application.ProcessMessages; // --------------------------- CreateForm(TDMFJoya, DMFJoya); CreateForm(TDM, DM); CreateForm(TFMain, FMain);


3- También deberías probar moviendo la parte donde das formato a ShortDateFormat mas abajo. Puede que esto no sea ThreadSafe.

Lo de la pausa me ha funcionado, no pensé que eso fuera a ayudar pero así ha sido

Muchas gracias a todos por la ayuda!