UI功能区抛出OLE异常

时间:2016-07-20 18:43:31

标签: delphi delphi-10.1-berlin

使用Erik Van Bilsen(GitHub)的工具创建功能区样式菜单,并仔细按照将简单的功能区菜单合并到Delphi 10.1中的新VCL表单应用程序中的说明,我遇到了OLE异常(未指定)在运行我的应用程序时错误发生在以下所示的行:

procedure TUIRibbon.Load();
Ribbon resource "%s": %s';
var
  Inst: THandle;
  lForm: TCustomForm;
begin
  if (Available) and (inherited Visible) and not (FLoaded) then
  begin
    // Load mapper for mapping between commands and VCL actions
    fRibbonMapper := TRibbonMarkupElementList.LookupListByResourceName(FResourceName);
    if (FResourceInstance = 0) then
      Inst := HInstance
    else
      Inst := FResourceInstance;
    try
      // OLE Exception.  Unspecified error happens here: 
      FFramework.LoadUI(Inst, PChar(FResourceName + '_RIBBON')); //Note:                       FResourceName = 'APPLICATION' here.   
      FLoaded := True;
      if Assigned(FOnLoaded) then
        FOnLoaded(Self);
      if roAutoPreserveState in Options then

有什么建议吗?

0 个答案:

没有答案