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

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

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

unit MainUnit;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.Notification;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure ReceiveLocalNotification(Sender: TObject;
      ANotification: TNotification);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    NotificationCenter1: TNotificationCenter;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  N: TNotification;
begin
  N := NotificationCenter1.CreateNotification;
  try
    N.Title := 'My Title';
    N.AlertBody := 'My alert body';
    NotificationCenter1.PresentNotification(N);
  finally
    N.Free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  NotificationCenter1 := TNotificationCenter.Create(Self);
  NotificationCenter1.OnReceiveLocalNotification := ReceiveLocalNotification;
end;

procedure TForm1.ReceiveLocalNotification(Sender: TObject;
  ANotification: TNotification);
begin
  ShowMessage('I received the notification clicked event');
end;

end.
cuxqih21

cuxqih211#

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

相关问题