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;

 

相关阅读 >>

Delphi 精确打印image画布

Delphi滚动窗口标题

Delphi版pspterminateprocess驱动源码

Delphi textfile utf8编码读写

Delphi 变体数组

Delphi 坐标截图如何实现

Delphi将文件删除至回收站

Delphi 比较图片是否相同

Delphi tnethttpclient演示

Delphi中输入法模式imemode属性的解释

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi TNotification Android通知