rio 10.3 vcl 通知代码

NotificationCenter1组件通知功能实现

原创于 2020-01-20 16:15:51 发布 · 227 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#通知 #notification

delphi rio 专栏收录该内容

89 篇文章

订阅专栏

1、放置NotificationCenter1组件在form上。

2、包含了通知功能，代码如下。

uses
  System.Notification;
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  notification: TNotification;
begin
  if Self.NotificationCenter1.Supported then
  begin
    notification := NotificationCenter1.createnotification;
    with notification do
    begin
      name := '更新';
      Title := '测试';
      AlertBody := '只是一个测试弹出通知！';
      FireDate:=Now;
      NotificationCenter1.PresentNotification(notification);
    end

  end;
end;

3、结果。