【结贴】如何用代码控制流转按钮

sunchenglin

我想实现这一的功能，当审批为不同意的时候，点击流转按钮给出提示，不让流程继续流转，让用户只能点击回退按钮，代码如下：
procedure TJL.FlowBroker1BeforeFlowOut(Sender: TObject; Command: TFlowOutCommand);
var
lisAgree: integer;
begin
  lisAgree := DataSetXMJGYSSP_BZSJJ.DataSet.FieldByName('isAgree').AsInteger;
  if lisAgree = 0 then
     begin
         Forms.Application.MessageBox('由于您不同意，请点击回退按钮!!!','友情提示',0);
         //Dialogs.ShowMessage('由于您不同意，请点击回退按钮!!!');
     end;
end;
现在的问题是，关闭提示框后流程还能继续流转，如何解决这个问题

zfang

加上 Command.Accept := False;

sunchenglin

好了，问题解决！

sunchenglin

结贴吧，谢谢！