delphi – 以编程方式关闭TrayIcon Balloon

问题：

我有一个计时器,每分钟检查一次消息.当它发现一条消息(例如ABC服务停止)时,它会显示带有消息的气球：

procedure TFrmTest.tmrTimer(Sender: TObject);
begin
  tmr.Enabled := False;
  try
    if IsAnyServiceStopped then
      ShowBallon(bfError,'The ABC Service is stopped. Do something!!!');
  finally
    tmr.Enabled := True;
  end;
end;

procedure TfrmTest.ShowBallon(pFlag: TBalloonFlags; pMessage: string);
begin
  try
    // HERE I'D LIKE TO CLOSE THE BALLOON IF IT'S OPENNED
    TrayIcon.BalloonFlags := pFlag;
    TrayIcon.BalloonHint := pMessage;
    TrayIcon.ShowBalloonHint;
  except
  end;
end;

TrayIcon BalloonTimeOut设置为3000(3秒).由于计时器每分钟触发一次消息(当有任何消息时),如果用户没有关闭它,系统会建立一个消息队列.如果用户在30分钟后回到PC(例如),他们将关闭第一条消息,然后托盘图标立即显示第二条消息,接下来的28条消息(用户不佳)也是如此.

我知道气球自动闭合,但只有当用户做一些输入(鼠标移动,按键,并且应用程序不需要聚焦或甚至不可见)时它才会关闭.因此,如果用户远离计算机,气球将永远停留在那里直到输入.

我尝试的其他解决方案是在显示任何气球时禁用Timer,并且仅在用户关闭当前气球时(或者它自动关闭)再次启用它.但是我找不到任何方法来发现气球何时关闭(如果用户点击X或者它自动关闭,OnBalloonClick事件不会触发).