Neue Komponente entwickeln.
Ich habe mal eine gemacht. Allerdings ist hier eine andere Möglichkeit, da ich derzeit nich von zu Hause aus schreibe:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
ProgressBar1.Parent := StatusBar1;
ProgressBar1.Left := {wie weit von links in der Statusbar entfernt};
ProgressBar1.Top := 1;
end;
Chris