【搞定】改变界面流程按钮状态？**

zwjcooldd

当存为草稿选中 ，流转按钮为Disable ，否则为可用

yancm

http://bbs.justep.com/forum.php? ... hlight=%CF%FB%CF%A2

zwjcooldd

我在我自己的库里 zwjUtils 写了一下代码：
TMyMessage = class(TBizMessage)
  private
    FMsg: String;
  public
    constructor Create(AMsg: String);
    static function Name: string;
    property msg: String read FMsg;
  end;

// 定义消息接收类
type
  TMyMessageHandler = class(TBizMessageHandler)
  private
    FMemo:TMemo;
  public
    procedure DoExecute(AMessage: TBizMessage; const AParam: THandleParam;
      var Handled: Boolean); override;
  end;




implementation
procedure TMyMessageHandler.DoExecute(AMessage: TBizMessage; const AParam: THandleParam;
      var Handled: Boolean);
begin
  if AMessage is TMyMessage then
  begin
    FMemo.Lines.Add((AMessage as TMyMessage).msg);
    Handled := True;
  end;
end;
constructor TMyMessage.Create(AMsg: String);
begin
  inherited Create(TMyMessage.Name);
  FMsg := AMsg;
end;

static function TMyMessage.Name: String;
begin
  Result := FMsg;
end;

然后在界面上 “存为草稿” （这个是数据库一个字段，表现类型为CheckBox） ，在它的OnChange中这样写：
procedure TSWSQNG.DataEdit1Change(Sender: TObject);
var
  lMsg: TMyMessage;
begin
   IF dsbDetail1.DataSet.FieldByName('CWCG').asString :='true' then
   begin
     // 发送消息
  lMsg := TMyMessage.Create('true');
  BizSys.GlobalContext.SendMessage(lMsg);
  lMsg.Free;
   end;
end;

然后那个TMainForm.addMsgHander放到哪里？ 然后我怎么访问到那个流程按钮？如果说放到界面上的话。让它访问流程按钮，那么为什么这么麻烦，写个消息？直接控制流程按钮能否使用就行了呗。你给的例子，有些代码没有？另外addMsgHander方法是自己定义吗？应该不是吧，请相信说明。

yancm

在您的功能窗体发送消息，在标准主窗体处理消息。处理消息时可以修改按钮状态。具体的代码参考2楼的连接。

zwjcooldd

我很笨那，不好意思。代码我倒是明白了，就是不知道在哪里写：
发送消息我知道，写在我那个Checkbox的onChange中。然后，那个处理消息的代码写在标准主窗体中吗？（标准主窗体这不就得修改了啊？）。然后这段：
procedure TMainForm.AddMsgHandler; 写在功能窗体中是把，我不明白的是AddMsgHander是窗体自己的事件吗？（要不这段代码怎么起作用）

yancm

1.需要修改标准主窗体的。
2.AddMsgHander不是窗体标准事件。需要自己调用它，可以在处理消息的窗体里面调用。

atiger

??

atiger

??

atiger

ok没有，无论如何请反馈一下结果

yancm

看来是没有问题了。此贴子结了。