在功能环节增加一个FlowBroker,然后在这个事件中处理组任务里的子任务的标题
procedure TMainForm.FlowBroker1GetFlowOutTasks(Sender: TObject; Command: TGetTasksCommand);
var
i : Integer;
lTask: TTask;
begin
for i := 0 to FlowBroker1.FlowControl.TaskCount -1 do
begin
lTask := FlowBroker1.FlowControl.TaskByIndex;
lTask.Subject := SysUtils.IntToStr(i);
lTask.SaveToDB;
end;
end;
你看看是否这样子就可以!