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

我想向数据库插入比较多的数据，想搞一个比较友好的状态条，来显示我的录入过程      
  如何实现，如何做一个漂亮的进度显示，？？？      
  请高手指教  
  问题点数：20、回复次数：5Top

1 楼ljmanage（过客）回复于 2003-08-04 18:38:17 得分 5

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

2 楼fhuibo（永远深爱一个叫“莎”的好女孩儿）回复于 2003-08-04 18:39:33 得分 0

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

3 楼XingXingKuaiLe（星星）回复于 2003-08-04 18:41:28 得分 5

ProgressBar1.Position   :=   ProgressBar1.Position+1;Top

4 楼huojiehai（海天子）回复于 2003-08-04 18:45:43 得分 5

对，用TGauge  
  unit   Unit1;  
   
  interface  
   
  uses  
      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.  
  Top

5 楼pressman（大苯熊）回复于 2003-08-04 20:08:52 得分 5

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

相关问题

• gauge
• 进度
• progressbar
• tform
• 显示
• timer
• tobject
• sender
• position
• procedure

• 帖主：chuangT
• ljmanage
• XingXingKuaiLe
• huojiehai
• pressman

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载