【结贴】流程终止问题**

tyl123

怎样让这个终止按钮变成灰色的，不可用的？

Akon

你的那个环节,不要设置终止应该可以了,

tyl123

不懂是什么意思，能讲清楚点不


是这里的庅？

Akon

对

tyl123

不行，设置跟没设置是一样的

http://bbs.justep.com/forum.php?mod=viewthread&tid=17447
我的问题应该是跟这个是一样的

Akon

你的是什么版本?

tyl123

0

Akon

不好意思,是我搞错了,那个按钮需要通过自己写代码来控制

tyl123

o，谢

Akon

楼主，可以用下方的方法实现

描述：
此例主要实现，如何根据 流程定义中，通过 功能环节\执行规则\能否终止 属性 自动感知 主界面上的“终止”按钮的是否可用。就是 当 能否终止 属性为False 时，主界面的 终止 按钮为不可用；当 能否终止 属性为 True 时，主界面的 终止 按钮为可用

实现步骤：

1、在 业务模型\系统空间\简洁风格\界面库\窗体库\标准风格主窗体
procedure TSTANDARDSTYLEMAINFORM.actFlowAbortTask11Update(Sender: TObject);
var
  b: Boolean;
begin
  b := True;
  try
    b := ObjectHelper.ToBoolean(ObjectHelper.CallMethod(CurrentFunc.MainForm, 'CanFlowAbortTask', []));
  except
  end;
  actFlowAbortTask.Enabled := (CurrentFlowControl <> nil) and
    (CurrentFlowControl.CanAbortTask) and b;
end;

2、标准风格主窗体 ActionListStandard控件 OnUdate事件上加上actFlowAbortTask11Update方法


3、在流程的功能环节上放FolwBroker控件
定义方法：
function TMainForm.CanFlowAbortTask: Boolean;
begin
  Result := TExecuteRule(TProcActivity(FlowBroker1.FlowControl.CurrentProcUnit).ExecuteRules.Items[0]).CanAbort;
end;