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

Question

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

我使用TTrayIcon组件

请帮助，谢谢：）

Answer 1

使用TTrayIcon在BaloonHint中显示消息：

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