楼主,这样试试吧:
系统空间\用户界面基础\界面库\系统接口\流转窗体
procedure TFLOWOUTFORM.SetDefaultCurSelectedFlowTaskNode;
var
I: Integer;
begin
with SelectFlowOutUnitForm.FlowChart do
for I := 0 to ObjectCount - 1 do
if ((Objects[I].Data) <> nil)
//and TFlowTaskNode(Objects[I].Data).Selected
then
begin
Objects[I].Selected := True;
Exit;
end;
SelectFlowOutUnitForm.Selected := nil;
end;