在OnCreateNotifyFlowTasks事件里用代码实现吧。
procedure TYWLC1.ProcUnitJDGN3CreateNotifyFlowTasks(Sender: TObject; Command: TFlowNotifyCommand);
var i,j: integer;
begin
Command.FlowTasks[0].AllowExecutors.Clear;
for i:=0 to Command.FlowControl.Flow.Tasks.Count-1 do
begin
for j:=0 to Command.FlowControl.Flow.Tasks.TaskMessages.Count-1 do
begin