代码?平台本身就是开放的。
具体修改的话,也很简单(往简单的方向去做,尽量不要去大改)
比如:
procedure TFLOWMONITORINFO.AddExecutor;
begin
//我加的
if SysUtils.UpperCase(DataSetFlow.FieldByName('FSTATE').AsString) = SysUtils.UpperCase('fsAborted') then
Exit;//退出,还可以给出提示信息等
//结束
if Assigned(FOnAddExecutor) then
FOnAddExecutor(Flow, Task, TaskMessage);
DataSetFlowController.Refresh;
end;