ProgressBar in StatusBar

[schuetze09]

Hallo,

mach das so:

Delphi-Quellcode:

uses
  CommCtrl, Types;

procedure TForm1.FormShow(Sender: TObject);
var r: TRect;
begin
  //Größe des 1. Panels ermitteln
  // 0 = erstes Panel der Statusbar; 1 = zweites Panel usw.
  StatusBar1.Perform(SB_GETRECT, 0, integer(@R));
  ProgressBar1.Parent := StatusBar1;
  ProgressBar1.BoundsRect := r;
end;

MfG
schuetze09