Progressbar bzw Aktivitätsbars

[shmia]

Komponenten dazu findest du auf Torry's.
Mit Delphi Bordmitteln kann man relativ leicht mit der Komponente TAnimate die laufende Arbeit anzeigen.

Bei jeden Umlauf deiner Arbeitsschleife wird dann noch Folgendes ausgeführt:

Delphi-Quellcode:

// FAnimationFrame : integer;
procedure TForm1.ShowProgress;
begin
   Animate1.Seek(FAnimationFrame);
   FAnimationFrame := (FAnimationFrame+1) mod Animate1.FrameCount;
end;