如何在delphi中显示托盘中的气泡提示/通知

我的程序中有一个线程，它每分钟检查是否有任何新的内容，如果是，它应该显示一个来自托盘的通知，比如带有通知文本的气球提示。例：“你收到汤姆的新消息了！”

我使用TTrayIcon组件

---

请帮助，谢谢：）

要在BaloonHint中显示带有TTrayIcon的消息：

  TrayIcon1.Visible := True;
  TrayIcon1.BalloonHint := 'You got a new message from Tom!';
  TrayIcon1.ShowBalloonHint;

---

要使用TTrayIcon在BaloonHint中显示消息，请执行以下操作：

  TrayIcon1.Visible := True;
  TrayIcon1.BalloonHint := 'You got a new message from Tom!';
  TrayIcon1.ShowBalloonHint;