【结贴】关于流转按钮的问题

lxs202 · 发表于 2010-4-30 13:50:02

1.在功能窗体中添加一个TActionList组件，
2.在此TActionList组件中添加一个TFlowAction，将此TFlowAction的ID属性设置为流转，
3.最后在窗体上添加一个TButton，然后将其Action属性设置为上面添加的TFlowAction。

当打开一个待办事宜后（流程中的某个环节），这个TButton是灰色的不能操作。需点下窗体内绑定了数据集的控件（DataEdit,DataGrid等）后才能操作（TButton变成彩色）。

atiger · 发表于 2010-4-30 15:29:06

别用普通的button，因为会失去焦点，你用SpeedButton 就可以了

lxs202 · 发表于 2010-4-30 15:52:43

一样的。如下图

atiger · 发表于 2010-4-30 16:36:03

哦，参考 http://bbs.justep.com/forum.php?mod=viewthread&tid=28292

lxs202 · 发表于 2010-4-30 16:46:14

procedure TBZWZSGD_FORM.BizFormShow(Sender: TObject);
begin
DocViewWZSGXX_INFO_BZWZSGD_DOC.SetFocus;

还是一样的效果（刚打开的时候是彩色的，但马上就变成灰色）

lxs202 · 发表于 2010-5-4 08:59:01

接着来

shangxy · 发表于 2010-5-4 09:15:58

把5楼的代码放到一个timer中执行呢？
把timer的时间间隔设置成1000毫秒或者500毫秒

lxs202 · 发表于 2010-5-4 09:45:25

７楼的方法可以，但是这样做不是很理想吧？
procedure TBZWZSGD_FORM.BizFormShow(Sender: TObject);
begin
   Timer1.Enabled:=true;

procedure TBZWZSGD_FORM.Timer1Timer(Sender: TObject);
begin
try
   Timer1.Enabled:=false;
   DocViewWZSGXX_INFO_BZWZSGD_DOC.SetFocus;
finally
   Timer1.Enabled:=true;
end;
end;

不加下面这句窗体关的时候要报错
procedure TBZWZSGD_FORM.BizFormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
Timer1.Enabled:=false;

lxs202 · 发表于 2010-5-4 09:50:41

Timer1.Enabled:=false;
DocViewWZSGXX_INFO_BZWZSGD_DOC.SetFocus;
只要这句。
结了吧

		自动登录	找回密码
密码			立即注册