delphi - 气球提示内的组件

Question

我试图找出一种在 TTrayIcon 气球提示中添加 TButton 的方法。

那可能吗？

应用描述和目标：

基本上，我的软件会检测 USB 设备何时连接到计算机并自动弹出一个气球提示，通知用户新设备已连接。

接下来应该问用户“你要执行操作 A 还是操作 B？”，我想让用户直接在气球提示中快速访问选项。

我试过的：

谷歌搜索了很多，但没有成功，因为没有关于如何以任何方式访问气球提示界面的信息。

我在 Windows 8 上使用 Delphi XE2。

Answer 1

TTrayIcon是 的包装器Shell_NotifyIcon()，它的弹出通知中不支持自定义控件。

您必须创建自己的弹出窗口。Shell_NotifyIconGetRect()如果要相对于托盘图标定位它，可以使用。请注意，系统托盘图标可能会被用户隐藏，因此请做好准备，您可能不得不在不知道图标所在位置的情况下定位弹出窗口。