你跑起来跟踪看看就可以清楚这个任务列表怎么加载流程任务了。
procedure TSELECTFLOWTASKLISTFORM.LoadFlowTasks;
var
I: Integer;
lFlowTask: TFlowTask;
begin
lvFlowTasks.Items.BeginUpdate;
try
for I := 0 to FlowTasks.Count - 1 do
begin
lFlowTask := FlowTasks[I];//这里去控制该任务是否允许加入到列表中
LoadFlowTask(lFlowTask);
end;
finally
lvFlowTasks.Items.EndUpdate;
end;
end;