delphi xe 之路（21）通知推送

2

3

4

5

6

7

8

9

10

11

12

procedure TForm1.Button1Click(Sender: TObject);

var

  MyNotification : TNotification;  // 宣告一個TNotification

begin

  MyNotification := NotificationCenter1.CreateNotification;

  Try

    MyNotification.AlertBody := '馬上顯示通知訊息';  //
訊息內容

    NotificationCenter1.PresentNotification(MyNotification);

  Finally

    MyNotification.DisposeOf;

  End;

end;

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

procedure TForm1.Button2Click(Sender: TObject);

var

  MyNotification : TNotification;

begin

  MyNotification := NotificationCenter1.CreateNotification;

  Try

    // 給排程的通知訊息名稱

    MyNotification.Name := 'ScheduleNotification';

    MyNotification.AlertBody := '十秒顯示通知訊息';

    // 設定時間是現在加上十秒

    MyNotification.FireDate := Now + EncodeTime(0,0,10,0);

    NotificationCenter1.ScheduleNotification(MyNotification);

  Finally

    MyNotification.DisposeOf;

  End;

end;

2

3

4

5

procedure TForm1.Button3Click(Sender: TObject);

begin

  // 取消通知訊息，參數內需對應 Notification.Name

  NotificationCenter1.CancelNotification('ScheduleNotification');

end;