Al abrir proyecto, hay forms que se crean solos

[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?

[defcon1_es]

coso: ¿Cómo se modifican los templates?
disculpa, pero no se a que te refieres.

Neftalí: pues no, no se usa ningún componente multiidioma.
se usa el componente wwIntl de InfoPower 3000, pero es para cambiar los mensajes de los componentes de InfoPower.

Muestro un resumen de las clases usadas en el proyecto:

[Application1]
File Number=2795679982
TAction=168
TActionList=6
TAppEvents=1
TBarSeries=6
TBevel=161
TBitBtn=691
TBlobField=76
TBooleanField=82
TButton=287
TChart=1
TCheckBox=764
TCheckListBox=2
TClientSocket=1
TColorDialog=15
TComboBox=149
TCopyFile=2
TDataSource=741
TDateEdit=1
TDateField=46
TDateTimeField=933
TDateTimePicker=87
TDBChart=5
TDBCheckBox=8
TDBEan=10
TDBEdit=3
TDBGrid=3
TDBImage=2
TDBLookupComboBox=8
TDBMemo=21
TDBRadioGroup=7
TDBText=613
TDesignQuickReport=2
TDirectoryEdit=11
TDirectoryListBox=1
TDistractBar=7
TdxContainer=2
TdxWinXPBar=12
TEan=4
TEasyListview=1
TEdit=360
TEditCopy=2
TEditCut=2
TEditPaste=2
TEditUndo=2
TElTree=1
TEnhancedListbox=2
TEventScrollbox=1
TfcImageBtn=5
TfcLabel=44
TfcPanel=33
TfcShapeBtn=36
TFileListBox=1
TFilenameEdit=4
TFloatField=5649
TFontDialog=13
TFontEdit=1
TFormTransitions=2
TGauge=2
TGroupBox=521
THeader=1
TIBClientDataSet=16
TIBDatabase=5
TIBQuery=12
TIBSQL=13
TIBStoredProc=1
TIBStringField=5093
TIBTransaction=9
TIBUpdateSQL=4
TIdAntiFreeze=1
TIdMessage=3
TIdPOP3=1
TIdSMTP=2
TImage=61
TImageList=33
TIntegerField=3772
TJvDBGridExcelExport=1
TJvDBSpinEdit=74
TJvDirectoryEdit=2
TJvDriveCombo=1
TJvEdit=1
TJvFilenameEdit=2
TJvGradient=3
TJvGradientHeaderPanel=22
TJvImageComboBox=1
TJvPageControl=1
TJvPanel=12
TJvProgressComponent=1
TJvRadioGroup=2
TJvSpinEdit=5
TJvTabControl=1
TJvTabDefaultPainter=2
TLabel=4209
TLabeledEdit=12
TLineSeries=55
TListBox=62
TListView=10
TMainMenu=5
TMaskEdit=6
TMemo=85
TMemoField=44
TMenuItem=987
TNotebook=3
TOpenDialog=12
TOpenPictureDialog=1
TPage=16
TPageControl=88
TPanel=1721
TpgBoton=697
TpgButton=44
TpgDBCheckBox=165
TpgDBComboBox=48
TpgDBDateTimePicker=129
TpgDBEdit=1835
TpgDBEditLookup=1074
TpgDBGrid=364
TpgDBImage=36
TpgDBLookupCombo=7
TpgDBLookupComboDialogo=2
TpgDBRadioGroup=29
TpgFormContainer=1
TpgGroupBox=72
TpgIBDataSet=150
TpgIBQuery=653
TpgIBStoredProc=216
TpgRadioGroup=27
TpgRxMemoryData=147
TpgTable=18
TPopupMenu=142
TPrintDialog=2
TPrinterSetupDialog=1
TProgressBar=4
TPsQRFilters=1
TQProgressBar=2
TQRBand=96
TQRChart=3
TQRChildBand=1
TQRDBChart=3
TQrDBEan=4
TQRDBImage=28
TQRDBText=402
TQRDLoader=1
TQrEan=1
TQRepDesigner=1
TQRExpr=18
TQRGroup=17
TQRImage=12
TQRLabel=746
TQRPreview=1
TQRShape=130
TQRSysData=49
TRadioButton=60
TRadioGroup=122
TReportDesignerDialog=2
TReportPrinterDialog=4
TRulerPanel=1
TRxCalcEdit=10
TRxCheckListBox=4
TRxDBComboEdit=5
TRxLabel=6
TRxMemoryData=7
TRxRichEdit=4
TRxSpinEdit=25
TSaveDialog=7
TScrollBox=8
TSession=1
TShape=19
TShellTree=3
TSkinData=1
TSmallintField=884
TSpeedButton=701
TSplitter=2
TStaticText=61
TStatusBar=5
TStrHolder=2
TStringField=1546
TStringGrid=3
TsuiButton=22
TsuiEdit=3
TsuiForm=3
TsuiMessageDialog=1
TsuiNumberEdit=2
TsuiPanel=6
TTabbedNotebook=2
TTabControl=6
TTabPage=7
TTabSheet=304
TTextListBox=14
TTimer=37
TToolBar=2
TToolButton=29
TUnZip=1
TUPClickSplitter=23
TUpDown=8
TWebBrowser=1
TwwDataInspector=21
TwwDataSource=1
TwwDBComboBox=63
TwwDBDateTimePicker=5
TwwDBEdit=1
TwwDBGrid=5
TwwDBNavigator=10
TwwDBSpinEdit=8
TwwExpandButton=31
TwwIButton=85
TwwIncrementalSearch=2
TwwIntl=1
TwwLookupDialog=6
TwwMemoDialog=90
TwwNavButton=60
TZip=1

[[coso]]

Yo tampoco lo se muy bien...imagino que deben haber ciertos templates, aunque no lo se seguro, para crear desde cero las forms, datamodules, services, etc, y pense que, de alguna manera, podria ser que alguno de los experts que tenia instalado hubiesen modificado estos templates iniciales. De todas maneras, releyendo la pregunta, ya vi que no debian ir por alla los tiros. saludos.