【搞定】［新大洲］急，升级２６１９，修改标准风格主窗体后编译出错**

sdhhonda_Yang

我们今天从２２７８升级到２４０１再升级到２６１９，在升级过程中一切正常。
现修改并编译“系统空间－简洁风格－窗体库”下的标准风格主窗体出错：
修改内容：
function TFuncContainer.GetDisplayName: string;
begin
　。。。
  {
  if Func.MainForm.Caption <> '' then
  begin
    Result := Func.MainForm.Caption;
    Exit;
  end;
  }
  Result := Func.DisplayName;
end;

出错信息：
[警告] 循环引用: "Biz:\SYSTEM\COMPACTSTYLE\UILIBRARYFOLDER\FORMLIBRARY.LIBRARY"-->"Biz:\COLLABORATION\DOC\DOCINFO.INFO"-->"Biz:\COLLABORATION\DOC\DOCINFO.INFO"
[警告] 循环引用: "Biz:\SYSTEM\COMPACTSTYLE\UILIBRARYFOLDER\FORMLIBRARY.LIBRARY"-->"Biz:\COLLABORATION\DOC\DOCRELEVANCYFOLDER\DOCRELEVANCYINFO.INFO"-->"Biz:\COLLABORATION\DOC\DOCINFO.INFO"-->"Biz:\COLLABORATION\DOC\DOCINFO.INFO"
[警告] 循环引用: "Biz:\SYSTEM\COMPACTSTYLE\UILIBRARYFOLDER\FORMLIBRARY.LIBRARY"-->"Biz:\COLLABORATION\DOC\DOCRELEVANCYFOLDER\DOCRELEVANCYINFO.INFO"-->"Biz:\COLLABORATION\DOC\DOCRELEVANCYFOLDER\DOCRELEVANCYINFO.INFO"
[错误]Biz:\SYSTEM\COMPACTSTYLE\UILIBRARYFOLDER\FORMLIBRARY.LIBRARY.DIR\STANDARDSTYLEMAINFORM.FORM.PAS(1127, 25): Undeclared identifier "FixPopupMenu"
[错误]Biz:\SYSTEM\COMPACTSTYLE\UILIBRARYFOLDER\FORMLIBRARY.LIBRARY.DIR\STANDARDSTYLEMAINFORM.FORM.PAS(1150, 27): Undeclared identifier "RelevancyPopupMenu"
[错误]Biz:\SYSTEM\COMPACTSTYLE\UILIBRARYFOLDER\FORMLIBRARY.LIBRARY.DIR\STANDARDSTYLEMAINFORM.FORM.PAS(1151, 27): Undeclared identifier "OnRelevancyPopuMenuPopup"

alang

我用 FixPopupMenu  OnRelevancyPopuMenuPopup OnRelevancyPopuMenuPopup 在标准风格主窗体上查找，都没有找到
你怎么会有呢？是不是升级时候，这个窗体或者有关的其他窗体没有升级上来。

1127是
procedure TSTANDARDSTYLEMAINFORM.OpenHelpFile;
var
  lHelpFileName: string;
begin
  lHelpFileName := jsCommon.ModulePath + 'Help\Help.chm';
  if SysUtils.FileExists(lHelpFileName) then
    Borland.Delphi.ShellAPI.ShellExecute(Forms.Application.Handle, 'open',
      lHelpFileName, '', '', Borland.Delphi.Windows.SW_SHOW)
  else
    jsDialogs.ShowMsg('没有找到帮助文件。', '');
end;

1150和1151是以下两句
function TSTANDARDSTYLEMAINFORM.FindContainer(AFunc: TFunc): TFuncContainer;
var
  I: Integer;
  lObj: TObject;
begin
  for I := 0 to FFuncContainers.Count - 1 do
  begin
    lObj := FFuncContainers[I];
    if TFuncContainer(lObj).Func = AFunc then
    begin
      Result := TFuncContainer(lObj);
      Exit;
    end;
  end;
  Result := nil;
end;

sdhhonda_Yang

是不是升级时候，这个窗体或者有关的其他窗体没有升级上来。

在升级过程中没有任何错误。是不是给的升级包不全呀？

sdhhonda_Yang

注释掉出错行后，ＯＫ！
结贴。

aDragon

注意：这个问题既不是升级产生的问题，无论是升级成功还是新初始化一个库，都是是这样的！

bsit

我也有这个问题哦  哦哦哦

yt_wxw

我的2617也有这个问题，到底怎么解决阿？

aDragon

注视掉出错的行！