Cod WinRT Notification Manager

Runtime Windows Codrut untuk Delphi -> Notification Manager

Manajer Pemberitahuan untuk Pemberitahuan Lanjutan di Windows 10/11

Sumber dan Ketergantungan

Perpustakaan ini adalah bagian dari runtime Windows Codrut untuk Delphi, semua unit dapat ditemukan di sana.

Perhatian! Aplikasi harus didaftarkan dengan tappregistration, untuk letusan yang lebih cepat, lihat dokumen COD Windows Runtime.

Contoh

Membuat Manajer Pemberitahuan

  Manager := TNotificationManager.Create;

Membuat pemberitahuan

  with TToastContentBuilder.Create do
    try
      AddText( TToastValueBindable.Create('title') );
      AddText( TToastValueString.Create('This is the new notifications engine :)') );;
      AddAudio(TSoundEventValue.NotificationIM, WinFalse);
  
      AddHeroImage(TToastValueString.Create('C:[email protected]'));
      AddProgressBar(TToastValueString.Create('Downloading...'), TToastValueBindable.Create('download-pos'));

      AddInputTextBox('editbox-id', 'Enter value', 'Response');
  
      AddButton('Cancel', TActivationType.Foreground, 'cancel');
      AddButton('View more', TActivationType.Foreground, 'view');
  
      // Data
      Notif := TNotification.Create(GetXML);
  
      Notif.Tag := 'notification1';
  
      // Data binded values
      Notif.Data := TNotificationData.Create;
      Notif.Data['title'] := 'Hello world!';
      Notif.Data['download-pos'] := '0';

      // Events (must be defined in your form class)
      Notif.OnActivated := NotifActivated;
      Notif.OnDismissed := NotifDismissed;
    finally
      Free;
    end;

Pemberitahuan mendorong

  Manager.ShowNotification(Notif);

Bersembunyi pemberitahuan

  Manager.HideNotification(Notif);

Memperbarui konten pemberitahuan

  const DownloadValue = Notif.Data['download-pos'].ToSingle+0.1;
  Notif.Data['download-pos'] := DownloadValue.ToString;
  if DownloadValue >= 1 then
    Notif.Data['title'] := 'Download finalised!';

  // Update
  Manager.UpdateNotification(Notif);

Membaca data acara

 procedure TForm1.NotifActivated(Sender: TNotification; Arguments: string; UserInput: TUserInputMap);
var
  Value: string;
begin
  // Get button id
  if Arguments = 'view' then
    // Get value of edit box (if there is one with this id)
    Value := UserInput.GetStringValue('editbox-id');
end;

Gambar

Catatan penting

• Jangan membebaskan TNotificationManager sampai aplikasi tidak akan lagi mengirim pemberitahuan.
• Jangan membebaskan pemberitahuan sampai tidak lagi diperlukan, karena Anda tidak akan lagi dapat menyembunyikannya. Pemberitahuan dapat diatur ulang menggunakan metode Reset()