1。我在一个窗口的按钮中打开一个功能,代码:
Systemcore.TSystemCore.FuncManager.RunFunc(Context, '','Biz:\CCSSHOA\train_study.Func', '-vvmTaskGrid -f'+ls_sc_id+' -d课程编号', nil, False); 其中'Biz:\CCSSHOA\train_study.Func'是我要打开的功能。
2。我在'Biz:\CCSSHOA\train_study.Func'这个功能的OnShow事件中要接受一个参数。
代码:
var
lParser: TCommandLineParser;
begin
lParser := TCommandLineParser.Create(nil);
ls_courseid:= lParser.GetOption('-f').Value.Value;
end; |