这段代码什么意思？**

zwjcooldd

constructor TMainForm.Create(Acontext: Tcontext);
var
  lGUID: String;
begin
  inherited;
  lGUID := Func.Parameters;  //这里什么意思？这里的Parameters从哪里传过来的？
  if lGUID = '' then
  begin
    TSqldataset((DocViewTask.Doc as TMyTaskDoc).dsbTaskIndex.DataSet).UserFilter := 'ftype = ''NEWSPLACARDDEAL''';  //
    TSqldataset((DocViewTask.Doc as TMyTaskDoc).dsbTaskIndex.DataSet).UseBizRange := True;
  end
  else
  begin
    TCIRCSCOMMONFILTER((DocViewTask.Doc as TMYTASKSTACKOUTDOC).TaskFilterBar.ToolBarModule).cbxTimeRange.ItemIndex := 0;
    TCIRCSCOMMONFILTER((DocViewTask.Doc as TMYTASKSTACKOUTDOC).TaskFilterBar.ToolBarModule).cbxTimeRange.OnChange(nil);
    TSqldataset((DocViewTask.Doc as TMyTaskDoc).dsbTaskIndex.DataSet).UserFilter := 'ftype = ''NEWSPLACARDDEAL'' and FGUID = '''+lGUID+''' ';
    TSqldataset((DocViewTask.Doc as TMyTaskDoc).dsbTaskIndex.DataSet).UseBizRange := True;
    (DocViewTask.Doc as TMyTaskDoc).ViewMode := TViewMode.vmTaskDetail;
  end;
end；

jiahaiminghr

TFunc.Run(AParameter: String)

运行功能时，传入的。

zwjcooldd

那么，在哪个时机运行，并传入呢？ 这个功能是OA中的“新闻公告（任务中心）”

yancm

所有通过标准界面运行的功能都是通过标准界面主窗体运行起来的。
看标准界面主窗体的方法：
procedure TSTANDARDSTYLEMAINFORM.UIRunFunc(AContext: TContext; const AUniqueID, AFuncURL, AParams: string; UseUI: Boolean; BeforeRunFunc: TFuncNotifyEvent; Modal: Boolean);

这里面调用了
TSystemCore.FuncManager.RunFunc(lContext, lUID, AFuncURL, AParams, BeforeRunFunc, Modal);

感兴趣的话楼主可以跟进去，最终是通过2楼的方法实现参数传递的。

atiger

??

atiger

结了，有问题请重新开帖