|

楼主 |
发表于 2008-11-17 12:46:15
|
显示全部楼层
标准风格主窗体下面procedure TSTANDARDSTYLEMAINFORM.AfterLogon(AParam: String); //alang
if lTask.FuncURL = '' then
raise Exception.Create('任务不可打开');
lTaskMessage := TTaskServices.GetCanRunTaskMessages(TSystemCore.Operator.Context, lTask);
TTaskServices.RunTask(TSystemCore.FuncManager, TTaskServices.FindTaskRunContext(TSystemCore.Operator.Context, lTask, lTaskMessage[0]), [lTask], True);
end
else
begin
UIRunFunc(Context,'YWSJXX','Biz:\GZSSZYLJYWSPXT\YWSJXX.Func','',false,nil,false);
end; |
|