流程任务显示？？**

huangyue

具体在那里？改那里？给个地方

zfang

业务模型\系统空间\用户界面基础\界面库\系统接口\选择流程任务窗体基类
    procedure FlowTaskPropChanged(AFlowTask: TFlowTask); virtual;  
这里的方法就是 紧迫度那三个radiobutton改变触发的事件。

huangyue

var
  i : Integer;
  lFlowTask: TFlowTask;
begin
  for i := 0 to Command.AllowFlowTasks.Count -1 do
  begin
    lFlowTask := Command.AllowFlowTasks;
    lFlowTask.Priority := TTaskPriority.tpHigh;
    lFlowTask.Subject := lFlowTask.Subject +'【紧迫度：高】';//因为你上面用的是tpHigh，所以这里直接是高。
end;
end;
这样定死了之后待办任务那里还是不显示？

zfang

你在上面的代码处，打个断点看看是否执行到。

huangyue

最初由 zfang 发布
[B]业务模型\系统空间\用户界面基础\界面库\系统接口\选择流程任务窗体基类
    procedure FlowTaskPropChanged(AFlowTask: TFlowTask); virtual;  
这里的方法就是 紧迫度?.

以下省略...... [/B]

这里只看见
procedure TBASESELECTFLOWTASKSFORM.FlowTaskPropEditorOnFlowTaskPropChanged(Sender: TObject);
begin
  FlowTaskPropChanged(SelectedFlowTask);
end;
和
procedure TBASESELECTFLOWTASKSFORM.FlowTaskPropChanged(AFlowTask: TFlowTask);
begin
  // Nothing todo
end;
这个咋改使得根据选择得到（不选就默认）lFlowTask.Subject := lFlowTask.Subject +'【紧迫度：S】';

huangyue

最初由 zfang 发布
[B]你在上面的代码处，打个断点看看是否执行到。 [/B]

断点执行了为啥没添加？

zfang

请楼主好好检查一下吧。
附上我测试的结果。

huangyue

方工你给的例子是写在功能上的，这个是可以的，我的代码是写在流程环节那里的？为什么就不变化呐？顺便帮看下15楼的。。。动态不会改。。。。

zfang

那你就在功能窗体中做吧。流程上的我没试

动态改变那个主题其实就是改变那个流转窗体中根据紧迫度的选择（radiobutton）改变主题框的值（edit）。具体实现还是请楼主自己尝试一下吧。（另外，此修改是会对所有的流程都起作用，所以请楼主根据自己的实际业务来控制。）

huangyue

我现在就是要做整套系统的流程都起作用的，所以才不会修改那个Edit