Also eine Gauge bekommst du so in eine Statusbar:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
with Gauge1 do begin
Parent := StatusBar1; //Parent von Gauge ist Statusbar1
Left := 3;
Height := StatusBar1.Height - (StatusBar1.Height div 3);
Top := 4;
end;
end;
[Edit] hab den Code noch "verschönert", weil ich vergessen hab, das ganze mit with...do zu machen.