Author: Master Tavi

How to put a component in a statusbar?

Answer:

1   uses Gauges
2     { ... }
3   
4     public
5     Gauge1: TGauge;
6   private
7   { ... }
8   
9   procedure TForm1.FormCreate(Sender: TObject);
10  begin
11    Gauge1 := TGauge.Create(StatusBar1); //Ctreate it on the statusbar
12    Gauge1.Parent := StatusBar1; //Parent Winodow
13    Gauge1.Height := StatusBar1.Height - 6; //Height
14    Gauge1.Top := 4; //Top
15    Gauge1.BackColor := clSilver; //Make it cool
16    Gauge1.BorderStyle := bsNone; //Border
17    Gauge1.ForeColor := clRed; //Color of Gauge
18    Gauge1.Left := StatusBar1.Width div 2; //Left Position
19    Gauge1.Progress := 0; //Progress
20  end;