【结】主窗体问题**

xjc

现在做的一个功能需要改变标准风格主窗体控件的caption,上论坛查了下方法,要用到消息机制,照着做了个消息,从我的功能发送消息,主窗体接收消息,但是这样做只能在DoExecute过程里输出showmessage对话框,不能控制标准风格主窗体的控件,好象是报个地址错误,请问应该如何解决??

shangxy

把发送消息过程的代码贴出来看看，在那里报错了？

xjc

发送消息是没错了,接收消息报错

procedure TMyMessageHandler.DoExecute(AMessage: TBizMessage; const AParam: THandleParam;
      var Handled: Boolean);

begin
  if AMessage is TMyMessage then
  begin
    business.Forms.Dialogs.ShowMessage((AMessage as TMyMessage).msg);
    //form1.Button1.Caption := 'aaa';
    Handled := True;
  end;
end;
注释那行错了,前面我定义了var form1:tmainform;

xjc

??还没好吗?

shangxy

你直接把这个代码  //form1.Button1.Caption := 'aaa';
放到另外一个地方看看能起作用么？

xjc

能啊,TMyMessageHandler类我跟Tmainform定义在一个单元,在Tmainform的过程里,直接用button1.caption := 'aaa';就可以了,在TMyMessageHandler不定义var form1:tmainform就不能找到button1,所以要form1.Button1.Caption := 'aaa';但是这样报地址错误

shangxy

你可以在Tmainform中写一个修改caption的方法，然后在DoExecute中调用这个方法

xjc

写了方法

procedure TMAINFORM.update;
begin
if button1.Caption<>'aaa' then
button1.Caption := 'aaa' else
button1.Caption := 'bbb';
end;

这样调用编译不过,该如何调用


procedure TMyMessageHandler.DoExecute(AMessage: TBizMessage; const AParam: THandleParam;
      var Handled: Boolean);

begin
  if AMessage is TMyMessage then
  begin
    business.Forms.Dialogs.ShowMessage((AMessage as TMyMessage).msg);
   //form1.Button1.Caption := 'aaa';
    TMAINFORM.Create.update;   
    Handled := True;
  end;
end;

xjc

用  form1.update 调用和 form1.button1.caption := 'aaa' 报一样的错

shangxy

我们前面做的例子你参考一下吧

  TMyMessageHandler = class(TBizMessageHandler)
  private
       FOnMyDo: TNotifyEvent;
  public
    procedure DoExecute(AMessage: TBizMessage; const AParam: THandleParam;
      var Handled: Boolean); override;
     property OnMyDo: TNotifyEvent read FOnMyDo write FOnMyDo;
  end;

procedure TMyMessageHandler.DoExecute(AMessage: TBizMessage; const AParam: THandleParam;
      var Handled: Boolean);
begin
  if AMessage is ZYJ1.TMyMessage then
  begin

   if Assigned(FOnMyDo) then
          FOnMyDo(nil);
    Handled := True;
  end;
end;





lmsg : TMyMessageHandler;

procedure setCaption(Sender: TObject);

implementation   

procedure TSTANDARDSTYLEMAINFORM.BizFormShow(Sender: TObject);
begin
  lmsg := TMyMessageHandler.Create;
  TMyMessageHandler(lmsg).OnMyDo:=setCaption;
  BizSys.GlobalContext.AddMessageHandler(ZYJ1.TMyMessage.Name, lmsg);

end;


procedure TSTANDARDSTYLEMAINFORM.setCaption(Sender: TObject);
begin
       Button2.Caption :='aa';
end;