CnPack Forum - Powered by Discuz! Board

Subject: 窗体列表的Bug? [Print This Page]

Author: softsword Time: 2005-4-12 21:03 Subject: 窗体列表的Bug?

为什么窗体列表里面还有这些？？
一个是使用的单元文件，一个是声明的TIcon变量，用于载入图标，都是在工程文件里面写的。
请斑竹看看，谢谢！

Image Attachment: Snap1.jpg (2005-4-12 21:03, 53.47 K) / Download count 472
http://bbs.cnpack.org/attachment.php?aid=59

Author: zjy Time: 2005-4-12 21:09

窗体列表是从 OTA 的工程模块信息接口里读的，你试试看 delphi 自己的窗体列表里有没有这些东西？估计是你的 dpr 代码让 IDE 误解了，能否帖上来看看？

Author: softsword Time: 2005-4-13 09:55

program dprUpdate;

uses
  Forms,
  Graphics {TIcon},
  Windows {LoadIcon},
  UntMain in 'UntMain.pas' {FrmMainIDE},
  Functions in 'Functions.pas' {Functions, not form};

{$R *.res}
{$R resUpdate.RES}

var
  icoAppMain: TIcon;
const
  AppTitle = 'CnPack Form List Test';
begin

  Application.Initialize;
  Application.Title := 'CnPack Form List Test';
  try
icoAppMain := TIcon.Create;
icoAppMain.Handle := LoadIcon(HInstance,'ICON_MAIN');
Application.Icon := icoAppMain;
  except
MessageBox(0, PChar('错误：为应用程序分配图标时发生异常！ '),
   PChar(AppTitle), MB_OK + MB_ICONSTOP);
  end;

  try
Application.CreateForm(TFrmMainIDE, FrmMainIDE);
  except
MessageBox(0, PChar('错误：创建应用程序主窗体时发生异常！ '),
   PChar(AppTitle), MB_OK + MB_ICONSTOP);
  end;

  Application.Run;

end.

Author: softsword Time: 2005-4-13 09:57

请 yygw 帮忙看看，谢谢！

Author: zjy Time: 2005-4-13 10:16

uses
  Forms,
  Graphics {TIcon},
  Windows {LoadIcon},
  UntMain in 'UntMain.pas' {FrmMainIDE},
  Functions in 'Functions.pas' {Functions, not form};

问题就出在这个 dpr 的 uses 部分，delphi 会把窗体类名放在单元名后面的注释中，前面的代码让 IDE 误解了，把那些不是自动生成的注释去掉就行了。

dpr 文件有不少内容都是 ide 自动维护的，修改时要特别注意。uses 部分尽量不要手工修改，如果在这里面用条件编译，在 ide 中打开时也可能出问题的。

Author: softsword Time: 2005-4-13 13:42

哈哈，太对了，改了马上就好了！
本来是想自己以后看得更清楚，没想到弄巧成拙，嘿嘿
谢谢 yygw ！

Welcome to CnPack Forum (http://bbs.cnpack.org/)