今天教大家使用的是通知(Notification)功能，在Delphi XE6很貼心的也將通知的功能封裝成元件，只要簡單的設定屬性就可以使用了。我們以簡單的篇幅教大家快速使用程式的通知功能，在後面我們會以比較大的篇幅放在Google Cloud Messaging(GCM)搭配Kinvey的BAAS服務(Backend as a Service)實做出推播通知(Push Notification)功能。
通知Notification
在Delphi XE6使用通知功能相當簡單，只要在表單上放置TNotificationCenter(通知中心)元件就可以了！接著顯示通知的方式也相當簡單。
一、馬上出現通知訊息
|
1
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;
|
二、排程十秒後顯示通知
|
1
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;
|
三、取消排程訊息
|
1
2
3
4
5
|
procedure TForm1.Button3Click(Sender: TObject);
begin
// 取消通知訊息，參數內需對應 Notification.Name
NotificationCenter1.CancelNotification(
'ScheduleNotification'
);
end;
|
