1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

  TProcessGauge = class
    PG : TProgressBar;
    PGL : TLabel;
    SB : TStatusBar;
    SBPanel : integer;
    SBText : integer;
    FullScale : longint;
    procedure connect (B : TProgressBar; L : TLabel);
    procedure prepare (fs : longint; lt : ShortString);
    procedure update (cv : longint);
    procedure add (cv : longint);
    procedure finish;
    procedure clear;
    procedure IntoStatusBar (ParentSB : TStatusBar; PBPanel,LPanel : integer);
    end;

  { call this from FormShow after create and connect }
procedure TProcessGauge.IntoStatusBar (ParentSB : TStatusBar; PBPanel,LPanel : integer);
var xe,ye : integer;
    PBRect : TRect;
    PBStyle : integer;
begin
if not Assigned (PG) then exit;
if not Assigned (ParentSB) then exit;
SB := ParentSB;
SBPanel := PBPanel;
SBText := LPanel;
SB.Perform (SB_GETRECT,SBPanel,integer (@PBRect));
PG.Parent := SB;     { Progressbar in Statusbar }
PBStyle := GetWindowLong (PG.Handle,GWL_EXSTYLE);
PBStyle := PBStyle and not WS_EX_STATICEDGE;
SetWindowLong(PG.Handle,GWL_EXSTYLE,PBStyle);
with PBRect do
  begin
  xe := GetSystemMetrics (SM_CXEDGE);
  ye := GetSystemMetrics (SM_CYEDGE);
  Left := Left + xe + 1;
  Top := Top + ye + 1;
  Right := Right - xe - 1;
  Bottom := Bottom - ye - 1;
  end;
PG.BoundsRect := PBRect;
PG.Visible := false;
Application.ProcessMessages; { redraw  statusbar }
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

type
  TMyControl = class(TControl);

procedure TMyForm.FormCreate(Sender: TObject);
var PanelRect: TRect;
begin
 //Progressbar auf die Statusbar
 TMyControl(ProgressBar1).SetParent(StatusBar1);
 SendMessage(StatusBar1.Handle, SB_GETRECT, 1, Integer(@PanelRect));
 with PanelRect do
  ProgressBar1.SetBounds(Left, Top, Right - Left, Bottom - Top);
end;