delphi OnReceiveLocalNotification最初运行良好,但一旦通知进入Windows操作中心,就不会被触发

jtoj6r0c  于 2023-10-18  发布在  Windows
关注(0)|答案(1)|浏览(150)

在用 Delphi 11.3做了一个VCL应用程序.
TNotificationCenter的OnReceiveLocalNotification事件工作良好(触发),如果用户单击我的通知,而它最初在屏幕右下角可见(已弹出)。但是,如果用户没有迅速做出React,并且通知进入Windows操作中心(就像通知在一段时间后所做的那样),那么,当用户单击那里的通知时,事件不会被激发。至少这是我的Windows 11 PC上发生的事情。
这是预期的行为,还是这里出了问题,如果是,是什么?
我希望在用户单击通知时获得通知(只要我的应用程序仍在运行),而不管通知当前显示在何处。
重现问题的代码:

  1. unit MainUnit;
  2. interface
  3. uses
  4. Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  5. Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.Notification;
  6. type
  7. TForm1 = class(TForm)
  8. Button1: TButton;
  9. procedure Button1Click(Sender: TObject);
  10. procedure ReceiveLocalNotification(Sender: TObject;
  11. ANotification: TNotification);
  12. procedure FormCreate(Sender: TObject);
  13. private
  14. { Private declarations }
  15. NotificationCenter1: TNotificationCenter;
  16. public
  17. { Public declarations }
  18. end;
  19. var
  20. Form1: TForm1;
  21. implementation
  22. {$R *.dfm}
  23. procedure TForm1.Button1Click(Sender: TObject);
  24. var
  25. N: TNotification;
  26. begin
  27. N := NotificationCenter1.CreateNotification;
  28. try
  29. N.Title := 'My Title';
  30. N.AlertBody := 'My alert body';
  31. NotificationCenter1.PresentNotification(N);
  32. finally
  33. N.Free;
  34. end;
  35. end;
  36. procedure TForm1.FormCreate(Sender: TObject);
  37. begin
  38. NotificationCenter1 := TNotificationCenter.Create(Self);
  39. NotificationCenter1.OnReceiveLocalNotification := ReceiveLocalNotification;
  40. end;
  41. procedure TForm1.ReceiveLocalNotification(Sender: TObject;
  42. ANotification: TNotification);
  43. begin
  44. ShowMessage('I received the notification clicked event');
  45. end;
  46. end.
cuxqih21

cuxqih211#

按规定Using Notifications
在macOS、iOS或Android中单击通知,会将发送通知的应用程序带到前面,无论此应用程序是在后台运行还是完全关闭。
当用户在Windows中单击通知时,没有特定的行为。
通知消失后,ONLY Windows不再向生成通知的应用程序发送通知消息。

相关问题