【结贴】通知问题**

ccseasy

能否实现如下功能？？

ccseasy

顶啊，

lixy

业务模型\系统空间\用户界面基础\界面库\系统接口\选择流程任务列表窗体
需要改这个。

ccseasy

procedure TSELECTFLOWTASKLISTFORM.BizFormShow(Sender: TObject);
begin
  inherited;
  LoadFlowTasks;
    lvFlowTasks.Selected := nil;
  //if (lvFlowTasks.Selected = nil) and (lvFlowTasks.Items.Count > 0) then
    //lvFlowTasks.Selected := lvFlowTasks.Items[0];
end;
怎么这样改了不可以吗？？

ccseasy

怎么又没有人理了？？

ccseasy

？？？？？？？？？？

ccseasy

顶啊，

ccseasy

还有人处理吗？？？

ccseasy

继续顶

lixy

procedure TSELECTFLOWTASKLISTFORM.LoadFlowTask(AFlowTask: TFlowTask);
var
  I: Integer;
  lListItem: TListItem;
begin
  if AFlowTask.Children.Count = 0 then
  begin
    lListItem := lvFlowTasks.Items.Add;
    lListItem.Data := AFlowTask;
  //-----  lListItem.Checked := True;
    DoRefreshListItem(lListItem, AFlowTask);
  end
  else
  begin
    for I := 0 to AFlowTask.Children.Count - 1 do
      LoadFlowTask(AFlowTask.Children[I]);
  end;
end;