Einzelnen Beitrag anzeigen

Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.079 Beiträge
 
Delphi 10.3 Rio
 
#4

AW: Notification mit Progressbar

  Alt 17. Jun 2021, 20:37
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.
Gruß vom KodeZwerg
  Mit Zitat antworten Zitat