ProgressBar (Update GUI)

[haentschman]

Moin...

Delphi-Quellcode:

TForm1 = class
private
...
  procedure StatusShown;
public
...
end;
.
.
procedure TForm1.StatusShown;
begin
...
end;