implementation
procedure TLCKZGN.setFlowinit();
begin
if FflowBroker<>nil then
begin
FflowBroker.OnCreateFlowOutFlowTasks:=LHFlowBrokerCreateFlowOutFlowTasks;
FflowBroker.BeforeFlowOut:= LHFlowBrokerBeforeFlowOut;
FflowBroker.AfterFlowOut:= LHFlowBrokerAfterFlowOut;
//FlowBroker1AfterFlowOut(Sender: TObject; Command: TFlowOutCommand)
end;
end;
procedure TLCKZGN.LHFlowBrokerBeforeFlowOut(Sender: TObject; Command: TFlowOutCommand);
var
sss:string;
begin
sss:=fxx;
end;
procedure TLCKZGN.LHFlowBrokerCreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
sss:string;
begin
sss:=fxx;
end;
procedure TLCKZGN.LHFlowBrokerAfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
var
sss:string;
begin
sss:=fxx;
end;
procedure TLCKZGN.LHFlowBrokerCreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
sss:string;
begin
sss:=fxx;
end;