delphi TNotification Android通知

procedure TForm2.Button1Click(Sender: TObject);

// 通知

var

mNotice: TNotification;

begin

mNotice := NotificationCenter1.CreateNotification;

mNotice.Name := 'NoticeTest';

mNotice.Title := '通知';

mNotice.AlertBody := '通知内容';

// 通知

NotificationCenter1.PresentNotification(mNotice);

mNotice.DisposeOf;

end;

当您单击通知时，双击该过程，然后双击并可以写入由设计屏幕的NotificationCenter1生成的TNotificationCenter的OnReceiveLocalNotification事件，

以显示此示例中

也使用简单的ShowMessage对其进行了窃听。，将显示作为参数返回的ANotification（TNotification）的Name属性，以便您查看它是哪个通知。

procedure TForm2.NotificationCenter1ReceiveLocalNotification(Sender: TObject;

ANotification: TNotification);

begin

showMessage(ANotification.Name + ':通知');

end;

推荐分享