【搞定】如何触发FlowFinish事件？**

jiahaiminghr

如果改成手动点击流转按钮，调出流转选择窗口，选择结束 ，就会触发FlowFinish事件。

这里怎么又出现流转对话框了，是楼主把流转规则又改了吗？

mouse_vip

原来我没有设置功能的流转规则，所以需要手动点击流转按钮，选择流程结束，就会触发FlowFinish事件，
但是因为这个流程只有一个功能点，想保存之后之接就执行流转功能，不需要显示流转的对话框。
我们原来在FlowFinish事件里面写了一个动作。但是这样修改完以后，FlowFinish事件里面的动作没有执行。

jiahaiminghr

那请确认一下：
1、设置流转规则：不出现流转对话框

2、不使用FlowAction流转。手动点击流转按钮来流转。

看这样能否触发finish事件

mouse_vip

我试试。

明天贴结果

mouse_vip

那请确认一下：
1、设置流转规则：不出现流转对话框

2、不使用FlowAction流转。手动点击流转按钮来流转。

看这样能否触发finish事件


测试结果：可以触发Finish事件

mouse_vip

顶。。。。。

alang

我做了一个例子
流程只有一个环节
在流程上截获BeforeFlowFinish事件和AfterFlowFinish事件
在流程环节对应的功能窗体上也截获BeforeFlowFinish事件和AfterFlowFinish事件
在功能窗体上定义一个标准流程动作，对应流转，在按钮的事件上执行FlowAction1.Execute

结果是
  在流程上定义的事件  和  功能窗体上定义的事件都触发了

alang

窗体上
object ActionList1: TActionList
  Left = 472
  Top = 88
  object FlowAction1: TFlowAction
    Category = 'Flow'
    Caption = 'FlowAction1'
    AutoDetect = True
    ID = 91
  end
end

procedure TMainForm.Button1Click(Sender: TObject);
begin
  FlowAction1.Execute;
end;

procedure TMainForm.FlowBroker1BeforeFlowFinish(Sender: TObject; Command: TFlowFinishCommand);
begin
  Dialogs.ShowMessage('Before FlowFinish in func');
end;

procedure TMainForm.FlowBroker1AfterFlowFinish(Sender: TObject; Command: TFlowFinishCommand);
begin
  Dialogs.ShowMessage('After FlowFinish in func');
end;

流程上
procedure TYWLC1.ProcBeforeFlowFinish(Sender: TObject; Command: TFlowFinishCommand);
begin
  Business.Forms.Dialogs.ShowMessage('Before FlowFinish');
end;

procedure TYWLC1.ProcAfterFlowFinish(Sender: TObject; Command: TFlowFinishCommand);
begin
  Business.Forms.Dialogs.ShowMessage('After FlowFinish');
end;

mouse_vip

OK
...搞定了。

alang

那楼主问题出在什么地方了