【结帖】协同常量库

565118680

1

565118680

如何订制协同常量库中，红色部分的参数是什么意思？如何订制？我如何知道我该用什么参数比较合适？请祥解一下，谢谢```````？

yancm

CreateDesktopPanel后面的四个参数分别是：
Caption 显示名称
DocURL 显示文档的URL
MoreFuncURL 点击更多>>后运行功能的URL
MoreFuncParam 点击更多>>后运行功能的URL需要传入的参数

565118680

SysUtils.Format('-f%s -vvmTaskGrid -d待办',
SysUtils.Format('-vvmTaskGrid -f%s -d交办',
cCustomerFuncURL, '')
参数是什么意思，('-f%s -vvmTaskGrid -d待办',？？？  t('-vvmTaskGrid -f%s -d交办',？？？

yancm

Func.Run函数的参数，你想传什么都可以，在功能的 TFunc.Parameters中可以得到这个参数。

565118680

-f%s ？什么意思？
-vvmTaskGrid -f%s -d交办',
我要如何订制？

yancm

看Biz:\COLLABORATION\MYTASKFUNC.FUNC\MAINFORM.FORM

这里即是对SysUtils.Format('-f%s -vvmTaskGrid -d待办', [TRTLConsts.NeedProcessTaskTypeStr]))传入参数的处理

procedure TMAINFORM.ParserRunParams(out ViewMode, FilterType, FilterDesc, LocateID: string);
var
  lParser: TCommandLineParser;
  lOption: TCommandLineOptionDefine;
begin
  lParser := TCommandLineParser.Create(nil);
  try
    lOption := lParser.OptionDefines.Add;
    lOption.Name := '-v';
    lOption.HasValue := True;
    lOption.DisplayName := '显示模式';

    lOption := lParser.OptionDefines.Add;
    lOption.Name := '-f';
    lOption.HasValue := True;
    lOption.DisplayName := '过滤选项';

    lOption := lParser.OptionDefines.Add;
    lOption.Name := '-d';
    lOption.HasValue := True;
    lOption.DisplayName := '过滤选项描述信息';

    lOption := lParser.OptionDefines.Add;
    lOption.Name := '-l';
    lOption.HasValue := True;
    lOption.DisplayName := '定位记录';

    lParser.Parse(FuncBroker.Func.Parameters);

    ViewMode := lParser.GetOption('-v').Value.Value;
    FilterType := lParser.GetOption('-f').Value.Value;
    FilterDesc := lParser.GetOption('-d').Value.Value;
    LocateID := lParser.GetOption('-l').Value.Value;
  finally
    lParser.Free;
  end;
end;

565118680

呵呵，结吧，，谢谢你，美女！