[搞定]通关于新闻中心刷新，我用消息来做出现的问题？**

zwjcooldd

我在新闻公告消信息的-业务任务数据表的AfterApplyUpdates 发送了一个消息，而在新闻公告默认文档中处理这个消息使得 Timer.enable：=true 让Timer刷新。 现在由于新闻中心在保存后才弹出“向有关人员发送阅读信息”。应该是在发送阅读消息后，才使得 Timer.enable：=true  。我如何，能在发送阅读消息后，再发送使得Timer.enable：=true 的消息？

--------------------------------------新闻公告导航
procedure TGRIDNAV.FormDocCreate(Sender: TObject);
var
lmh: TMyTimerEnableMessageHandler;
begin
  TaskDataSet.DataFetch.PageRecords := 20;
  DataGrid.BorderStyle := TBorderStyle.bsNone;
  Timer.Enabled := True;
  {
  zwjcooldd       2008.2.17

  }
  lmh := TMyTimerEnableMessageHandler.Create;
  lmh.FTimer := Timer;

  BizSys.GlobalContext.AddMessageHandler(TMyTimerEnableMessage.Name, lmh);
end;

-------------------------------------------------------------zwjUtils
TMyTimerEnableMessage = class(TBizMessage)
  private
    FMsg: String;
  public
    constructor Create(AMsg: String);
    static function Name: String;
    property msg: String read FMsg;
  end;
//---------
//定义消息接收类
type
  TMyTimerEnableMessageHandler = class(TBizMessageHandler)

    FTimer: TTimer;

  public
    procedure DoExecute(AMessage: TBizMessage; const AParam: THandleParam;
      var Handled: Boolean); override;
  end;
implementation
procedure TMyTimerEnableMessageHandler.DoExecute(AMessage: TBizMessage; const AParam: THandleParam;
      var Handled: Boolean);
begin
  if AMessage is TMyTimerEnableMessage then
  begin

    FTimer.enabled:=SysUtils.strToBool((AMessage as TMyTimerEnableMessage).msg);
    Handled := True;
  end;
end;
constructor TMyTimerEnableMessage.Create(AMsg: String);
begin
  inherited Create(TMyTimerEnableMessage.Name);
  FMsg := AMsg;
end;

static function TMyTimerEnableMessage.Name: String;
begin
  Result := 'EnableTimer';
end;-----------
---------------------------------------------新闻公告信息
procedure TNEWSPLACARDINFO.DataSetBizTaskDataAfterApplyUpdates(Sender: TObject; var OwnerData: object);
var
lMsg: TMyTimerEnableMessage;
begin
  Inherited;

  lMsg := TMyTimerEnableMessage.Create('true');
  BizSys.GlobalContext.SendMessage(lMsg);
  lMsg.Free;
end;
--------------------------------------------------

zwjcooldd

procedure TNEWSPLACARDINFO.MessageIssuance(Task: TTask);   
放在它里面好了
OK