请教，如何做一个进度显示？希望（详细点）！拜托高手

Question

我想向数据库插入比较多的数据，想搞一个比较友好的状态条，来显示我的录入过程  
如何实现，如何做一个漂亮的进度显示，？？？  
请高手指教

Answer 1

用Gauge代替进度条，并且你自己改变颜色好了

Answer 2

ProgressBar1.Max := Query1.RecordCount
  ProgressBar1.Position := 1

Answer 3

ProgressBar1.Position := ProgressBar1.Position+1;

Answer 4

对，用TGauge
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, Gauges;type
  TForm1 = class(TForm)
    Gauge1: TGauge;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Gauge1.MaxValue := 1000;
  Gauge1.Progress := Gauge1.Progress + 10;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
   Gauge1.MaxValue := 1000;//设置最大范围
end;end.

Answer 5

改变属性为：
forecolor:=clgreen;
backcolor:=clsilver;
可以好看点点！