Delphi의 Android Notification (알림)

알림은 자주 쓰입니다.
코유 녀석

Android Developer 알림 문서 을 읽으면 코드로 열심히 쓰고 있습니다만, Delphi의 경우는 TNotificationCenter 컴퍼넌트가 있어, 프로퍼티의 설정과 메소드를 실행하는 것만으로, 편하게 통지를 실시할 수 있습니다

샘플 애플리케이션

사용한 Delphi 버전은 10.2 Tokyo (release3) Community Edition을 사용합니다.
Android는 Nexus 5(Android OS 6.0.1)를 사용했습니다.

버튼을 누르면 알림을 수행하는 간단한 샘플입니다.
사용하는 두 가지 구성 요소, TButton 및 TNotificationCenter 전용

신규로 멀티 디바이스 애플리케이션을 생성합니다 (빈 애플리케이션 선택)
도구 팔레트에서 TButton을 폼에 드래그 앤 드롭으로 배치합니다.
도구 팔레트에서 TNotificationCenter를 폼에 드래그 앤 드롭으로 배치합니다.
디자인 화면은 이런 느낌

디자인 화면에서 Button1을 두 번 클릭하여 Button1의 OnClick 이벤트에 다음 코드를 작성합니다.

procedure TForm2.Button1Click(Sender: TObject);
// 通知メッセージは TNotification で作成します
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;