|
| Create it and use it! | Product:
Delphi all versions | Category:
VCL-General | Skill Level:
 | Scoring:  | Last Update:
09/15/2001 | Search Keys:
delphi delphi3000 article borland vcl code-snippet Cool;StatusBar;Gauges;Forms; | Times Scored:
4 | Visits:
3294 | Uploader: Master Tavi
Company: Tavi software | Reference: N/A | | | Question/Problem/Abstract:
How to put a component in a statusbar? | Answer:
uses Gauges
...
public
Gauge1:TGauge;
private
...
procedure TForm1.FormCreate(Sender: TObject);
begin
Gauge1:= TGauge.Create(StatusBar1);//Ctreate it on the statusbar
Gauge1.Parent := StatusBar1;//Parent Winodow
Gauge1.Height:=StatusBar1.Height-6;//Height
Gauge1.Top:=4;//Top
Gauge1.BackColor:=clSilver;//Make it cool
Gauge1.BorderStyle:=bsNone;//Border
Gauge1.ForeColor:=clRed;//Color of Gauge
Gauge1.Left:=StatusBar1.Width div 2;//Left Position
Gauge1.Progress :=0;//Progress
end;
I hope you'll find it useful;
|||||\\\\\\\\\//////////||||||
|||||-------------------------
|
|
|
| |
Sign up to consume product discounts for Bronze memberships !
|
|
| |
Community Ad of
D. Wischnewski |
|
| |
|
|
|
Sign Up
