如何在Delphi中从托盘显示气球提示/通知

Question

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

我使用TTrayIcon组件

请帮忙，谢谢:)

Answer 1

要使用TTrayIcon在BaloonHint中显示消息：

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