删除恢复的以前的备份后,formshow中的断点可以了,但仍很慢;
这种情况是在升级后才有的,老版本2323中没有
跟踪代码后发现有在"标准风格主窗体"中的以下代码的一个调用慢, 如下:
procedure TSTANDARDSTYLEMAINFORM.ReloadRelevancyNavBar;
var
lRelevancyViewNavBar: TRelevancyViewNavBar;
lRefreshRelevanciesMessage: TRefreshRelevanciesMessage;
lReloadRelevanciesMessage: TReloadRelevanciesMessage;
begin
HideRelevancyNavBar;
if TRelevancyManager.IsShowRelevancyNavBar(Context, CurrentFunc.BizClassURL.BizURL.URL) then
begin
FRelevancyNavBar.Clear;
lRefreshRelevanciesMessage := TRefreshRelevanciesMessage.Create(FRelevancyNavBar);
try
if not CurrentFunc.Context.SendMessage(lRefreshRelevanciesMessage) then
DefaultRefreshRelevancies(FRelevancyNavBar); //这个调用很慢
finally
lRefreshRelevanciesMessage.Free;
end;
if CurrentFunc <> nil then
begin
lRelevancyViewNavBar := TRelevancyViewNavBar.Create(FRelevancyNavBar);
lReloadRelevanciesMessage := TReloadRelevanciesMessage.Create(lRelevancyViewNavBar);
try
CurrentFunc.Context.SendMessage(lReloadRelevanciesMessage);
finally
lReloadRelevanciesMessage.Free;
end;
end;
end;
ShowRelevancyNavBar;
end; |