以下,我修改了这个函数,让每次流转以后,弹出对话框来显示执行者URL
procedure TFlowManager.doAfterFlowCommand(ACommand: TFlowCommand);
var
i, j: Integer;
s: TStrings;
lFlowTasks: TFlowTasks;
begin
doEvent(FAfterFlowCommand, ACommand);
if ACommand.ID=Flow.FLC_FLOWOUT then
begin
lFlowTasks := (ACommand as TFlowOutCommand).FlowTasks;
s := TStringList.Create;
try
for i:=0 to lFlowTasks.Count-1 do
for j:=0 to lFlowTasks.Executors.Count-1 do
s.Add(lFlowTasks.Executors[j].BizURL.URL);
if s.Count>0 then
Dialogs.ShowMessage(s.Text);
finally
s.Free;
end;
end;
end;