用ExpressBars做成的弹岀菜单怎么无法自动消失？

Question

我用CoolTrayIcon和ExpressBars做了一个小程序，最小化到托盘后，右键单击托盘图标就弹出用ExpressBars做的菜单，如果没有点击菜单的话，菜单就一直显示着，无法自动取消。我想实现单击别的地方的时候菜单就自己消失，不知如何做？实现右键单击托盘图标弹出菜单的代码如下
procedure TForm1.CoolTrayIcon1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
     dxBarPopupMenu1.PopupFromCursorPos;
end;

Answer 1

没有人帮忙吗？自己顶一下。