[搞定]2809新闻公告设置与界面修改

YZQH

static function TRTLConsts.OAURL: string;
begin
  Result := 'Biz:\OPERATION\OASpace';
end;
static function TRTLConsts.NewsDocURL: string;
begin
esult := 'Biz:\OPERATION\OASPACE\NEWSPLACARD_NAVINFO.INFO\GRIDNAV.FORMDOC';
end;
修改后，再登陆平台， 有好几条提示：对象URL转化为FileName失败，是否忽略错误？
忽略后可进入，右侧公告里看不到东西。
------------------------------------------------------------------------
另外在登陆画面之前有一个‘正在加载系统，请...’的画面在哪里修改？
                    by YCFC_WYJ

lisb

那两个函数你改了吗，要改成你们自己的BizUrl

那个是一个图片，X3 Server\client\NewVersion\install\Splash.jpg,要改的话把这个图片换掉，然后重新生成下载文件（用X3 安装制作工具）

YZQH

谢谢李工回复，上次你给我们修改的新闻公告我在2809中打开NEWSPLACARDFUNC下面的窗体时提示如下图所示，可能是这个原因导致上面的错误吧。这个怎么解决呢。

lisb

先忽略，然后在代码编辑器中随便打几个空格，保存，编译试一下。

YZQH

嗯，好了。
只是最初的问题依旧存在，如图333：
在建模工具内部运行时，先弹出图444，再弹出图333：

lisb

退出studio,重新编译一下呢？

YZQH

试了，不行。

lisb

５楼的第二张图，这个url你们没有这个路径吧，也要改成你们自己的路径。

YZQH

谢谢，我已经找到原因，就是平台中的OA绑定了几个东西，我把其他的几个功能从数组中拿掉，就好了：
  begin
    SetLength(Result, High(Result) - Low(Result) + 1);
    Result[High(Result)] := TRTLConsts.NewsCenterURL;
   // Result[High(Result) - 3] := 'Biz:\OPERATION\OASPACE\LetterVisitDealFunc.Func';
   // Result[High(Result) - 2] := 'Biz:\OPERATION\OASPACE\LetterDisposalDealFunc.Func';
   // Result[High(Result) - 1] := 'Biz:\OPERATION\OASPACE\DailyChargeBxDealFunc.Func';
   // Result[High(Result)] := 'Biz:\OPERATION\OASPACE\EvectionChargeBxDealFunc.Func';
  end;

lisb

不谢，结贴了。