[请求]怎样用代码获得流程下一步环节的中文显示名？**

zykj

我想在OnCreateFlowOut这个事件里获取下一步或者下若干步的环节显示名，代码该怎么写呢？？

zykj

自己试出来了，结贴！

jiahaiming

恭喜。

可以通过TFlowControl.Proc来访问当前的过程模型。
TProc = class(Business.Model.TBizAssembly)
protected
  function InternalCanInitiativeStartup(AProcUnit: TProcUnit): Boolean;
  function InternalIsStartupUnit(AProcUnit: TProcUnit): Boolean;
  procedure Loaded; override;
  procedure Notification(AComponent: Business.System.TComponent; Operation: Business.System.TOperation); override;
public
  constructor create(AContext: Business.Model.TContext);
  procedure Destroy; override;
  function FindUnit(AID: string): TProcUnit;
  function GetEntryUnitByFuncURL(AURL: Business.Model.TBizURL): TProcUnit;
  procedure GetEntryUnits(AList: Business.System.TList);
  procedure GetFinishUnits(AList: Business.System.TList);
  procedure GetStartupActivities(AList: Business.System.TList);
  function GetUnit(AID: string): TProcUnit;
  procedure GetUnits(AFrom: TProcUnit; ATo: TProcUnit; AUnits: Business.System.TList);
  procedure GetUnitsByKinds(AList: Business.System.TList; AKinds: TProcUnitKinds);
  procedure RefreshList; override;
  function StartUnit: TProcUnit;
  property AfterFlowAbort: TFlowAbortEvent;
  property AfterFlowArchive: TFlowArchiveEvent;
  property AfterFlowFinish: TFlowFinishEvent;
  property AfterFlowStartup: TFlowStartupEvent;
  property AutoArchiveModes: TAutoArchiveModes;
  property BeforeFlowAbort: TFlowAbortEvent;
  property BeforeFlowArchive: TFlowArchiveEvent;
  property BeforeFlowFinish: TFlowFinishEvent;
  property BeforeFlowStartup: TFlowStartupEvent;
  property BizDataTaskMaps: TFlowBizDataObjectMaps;
  property Enabled: Boolean;
  property EntryActivities[Longint]: TProcUnit; readonly;
  property EntryActivityCount: Longint; readonly;
  property ExpectedTime: Double;
  property FlowField: Business.Model.TBizRef;
  property FlowStartupRules: TFlowStartupRules;
  property HastenRules: THastenRules;
  property IncludeParentFlowRange: Boolean;
  property UnitCount: Longint; readonly;
  property Units[Longint]: TProcUnit; readonly;


function FindUnit(AID: string): TProcUnit;

ProcUnit.DisplayName