【结帖】[问题] 通过消息刷新任务**

rzport_jqf

通过消息刷新任务列表:

我们用消息 FLC_FLOWOUT,  刷新的时候任务应该还没有保存, 所以刷新不行. 请问平台上是如何做的? 我们应该应用什么消息? 或者有其他改进方式?

procedure TFlowAfterFlowCommandBizMessageHandler.DoExecute(AMessage: TBizMessage; const AParam: THandleParam;
      var Handled: Boolean);
var
  lCommand: TFlowTaskCommand;
  thread: TMyThread;
begin
  lCommand := TFlowTaskCommand((AMessage as TFlowCommandMessage).FlowCommand);

  case lCommand.ID of
    Flow.FLC_FLOWOUT://流转后执行
      begin
         TSJG(tmpForm).RefreshDataSet();
      end;
  end;
  Handled := false;
end;

rzport_jqf

procedure TSJG.RefreshDataSet();
begin
      DataSetBroker1.dataset.DisableControls;
      try
        DataSetBroker1.dataset.CancelUpdates;
        DataSetBroker1.dataset.Refresh;
        DataTreeList1ESFIELD01.Sorted:=TTreeListColumnSort.csDown;
      finally
        DataSetBroker1.dataset.EnableControls;
      end;

end;

alang

在消息处理程序中启动一个Timer，就可以延时执行刷新了

rzport_jqf

可以了. 谢谢!

etqxq

那样不怎么好哦