Notification mit Progressbar

[KodeZwerg]

Delphi-Quellcode:

uses ... Vcl.Taskbar;

type
  TfrmMain = class(TForm)
    ...
    tbMain: TTaskbar;
    ...
  public
    procedure Test;
  end;

implementation

procedure TfrmMain.Test;
var
  i: Integer;
  fProgress: Single;
begin
  tbMain.ProgressState := TTaskBarProgressState.Normal;
  tbMain.ProgressMaxValue := 5000;
  for i := 0 to tbMain.ProgressMaxValue do
    begin
      tbMain.ProgressValue := i;
      fProgress := i * 100 / tbMain.ProgressMaxValue;
      tbMain.ToolTip := Format('%s: %3.1f%% (%d %s %d)', ['Progess', fProgress, i, 'of', tbMain.ProgressMaxValue]);
    end;

  tbMain.ProgressState := TTaskBarProgressState.None;
  tbMain.ToolTip := '';
end;

So als Beispiel dafür.