delphi - TJvAppXMLFileStorage OnGetFileName 事件从未执行

Question

在带有 JVCL 3.48 的 Delphi 10 Seattle 中，在实现TJvAppXMLFileStorage OnGetFileName事件处理程序之后，它永远不会被执行：

procedure TForm1.JvAppXMLFileStorage1GetFileName(Sender:
    TJvCustomAppStorage; var FileName: TFileName);
begin
  // never gets executed!
  CodeSite.Send('JvAppXMLFileStorage1GetFileName', FileName.ToString);
end;

我需要此事件来使用取决于其他设置JvAppXMLFileStorage1.Location的参数设置属性。var FileName

那么我怎样才能执行这个事件呢？

Answer 1

快速浏览一下JvAppStorage.pas似乎表明唯一调用的地方（如果有一个分配DoGetFileName的地方就会触发）在. 查看该方法，仅从分支调用 for 。OnGetFileNameTJvCustomAppMemoryFileStorage.RecalculateFullFileNameDoGetFileNamecase Location offlCustom

这似乎表明该事件仅在已分配且Locationis时才被触发flCustom。