请看图,我在代码里面这样写的
strFlowID,strFlowCurrentUnitID : string;
procedure TRKFP.BizFormShow(Sender: TObject);
begin
strFlowID := FlowBroker1.FlowControl.Flow.ID;
strFlowCurrentUnitID := FlowBroker1.FlowControl.CurrentProcUnit.ID;
if (strFlowCurrentUnitID = 'SSRK_TD') then
begin
//
end
else if (strFlowCurrentUnitID = 'SSRK_FP') then
begin
FlowBroker1.FlowControl.CurrentProcUnit.DisplayName := '分配库位'
end
end;