Al abrir proyecto, hay forms que se crean solos

[defcon1_es]

Buenos dias, forer@s.

Llevo ya unos dias con un caso que me trae de cabeza, y hasta que no instalé el paquete cnPack, no vi realmente las dimensiones del problema:

Al abrir un proyecto concreto con mi delphi 6, se instancian automáticamente tanto el formulario principal del proyecto, como varios (8 o 10) módulos de datos.
Esto sería correcto si al cerrar dicho proyecto, se estubo trabajando con esos datamodules, pero no es asi.

Ejemplo: abro el dpr, y abro sólo una unit, que en el uses no tiene ni el formulario principal ni ninguno de los datamodules, pero estos si que los instancia delphi automáticamente, porque si compruebo desde un ejecutable con la función FindWindow si existe el formulario principal, me devuelve que si, que ya hay una ventana con ese nombre.
El nombre del formulario principal es bastante dificil que coincida con alguna de las ventanas en el momento de la comprobación.

¿Alguna idea, sugerencia al respecto?

[Neftali [Germán.Estévez]]

Tal vez con algo de código quedaría más claro.
¿Estás ejecutando el IDE cuando haces las comprobaciones?

[defcon1_es]

Empezado por Neftali

Tal vez con algo de código quedaría más claro.
¿Estás ejecutando el IDE cuando haces las comprobaciones?

Hola Neftalí.

Enumero los pasos que realizo:

1) Abro Delphi 6 con los parámetros -hm -np
2) Abro el proyecto en cuestion y sólo me muestra la unit de constantes con la que cerré el proyecto antes.
3) Mediante la opción "View Forms" de la CnPack ya veo que hay instanciados 10 datamodules y el formulario principal (aparecen en rojo)
4) Sin hacer nada más en Delphi, ejecuto un exe que tengo preparado ya de antemano con la función FindWindow para que busque si hay una ventana de la clase del formulario principal, y me dice que si que hay.

¿Qué código quieres que te ponga?

La búsqueda de la ventana la hago asi:

Código Delphi [-]
function EsWindowsNT:Boolean;
var Versio: OSVERSIONINFO;
begin
  // versión de windows?
  Versio.dwOSVersionInfoSize := SizeOf(OSVERSIONINFO);
  GetVersionEx(Versio);
  // Si no es W95, W98 o millenium
  Result := (Versio.dwPlatformID = VER_PLATFORM_WIN32_NT);
end;

// Esta es la función que comprueba si existe una ventana según su clase
function PodemosEmpezar: Boolean;
var Wdw: HWND;
begin
  if EsWindowsNT
  then begin
    Wdw := FindWindow('TFormPrincipalquedaelproblema', nil);
    if Wdw = 0 then
  // No hay instancia en ejecución
      Result := True
    else
  // Instancia en ejecución
      Result := False;
  end
  else Result := True;
end;

[[coso]]

Hola,
se me ocurre que quizas has modificado los templates iniciales, de alguna manera...

[Neftali [Germán.Estévez]]

Pues con ese va bien, ya que he podido comprobar lo jismo que tú.
En mi caso hago lo mismo, pero sólo me da que el formulario está abierto cuando realmente está abierto.

Es decir, cuando en el IDE lo tengo abierto.
Al abrir el formulario, sólo me aparecen en rojo (en CnPack) los que realmente tengo abiertos.
El problema es saber porqué al abrir tu proyecto te los está instanciando, ya que segun el comportamiento de mi Delphi no los abre (D6) y parece que cnPack tampoco.

¿Tienes algun otro experto instalado que pueda estar haciendo esto?
¿te pasa si creas otro proyecto en blanco conun par de formularios?
¿Y si a ese proyecto de prueba le añades un DM?

[defcon1_es]

Empezado por Neftali

¿Tienes algun otro experto instalado que pueda estar haciendo esto?

Tenia GExperts y DelphiSpeedUp, pero los he desinstalado y sigue igual.

Empezado por Neftali

¿te pasa si creas otro proyecto en blanco con un par de formularios?

No, sólo con ese proyecto en concreto.
En el resto de proyectos que tengo, eso no pasa.

Empezado por Neftali

¿Y si a ese proyecto de prueba le añades un DM?

No crea automaticamente el nuevo datamodule, siempre crea los mismos


Lo malo de esto, es que cuando los tengo abiertos, no puedo hacer un build del proyecto.

¿Se os ocurre algo que pueda mirar?

[Neftali [Germán.Estévez]]

¿Algun componente externo (estoy pensando an algunos de multiidioma) que pueda hacer la carga?