ProgressBar, Shape ... in einer Statusbar einbinden?

[EDatabaseError]

Ich habe hier von den Schweizern folgenden Code mit dem man eine Progressbar und andere VCL Komponenten in eine Statusbar einbinden kann:

Delphi-Quellcode:

uses
  CommCtrl;

type
  THackControl = class(TControl);

procedure TForm1.FormCreate(Sender: TObject);
var
  PanelRect: TRect;
begin
  // Place progressbar on the statusbar
  THackControl(ProgressBar1).SetParent(StatusBar1);
  // Retreive the rectancle of the statuspanel (in my case the second)
  SendMessage(StatusBar1.Handle, SB_GETRECT, 1, Integer(@PanelRect));
  // Position the progressbar over the panel on the statusbar
  with PanelRect do
    ProgressBar1.SetBounds(Left, Top, Right - Left, Bottom - Top);
end;

Statt Progressbar1 kann da auch Shape1 ... stehen.

Mfg
Tobi