Question

Delphi中如何实现如图所示的进度条效果

说的详细点。先谢谢各位了。不要让我的分白给啊
我是希望用label和进度条两个组件来实现的，不想装那么多组件

Answer 1

　1.在Delphi 5中通过菜单“File/New Application”创建一个新的工程。
　　2.在窗体中添加一个状态栏组件StatusBar1，一个Button组件Button1.在状态栏编辑器中为状态栏添加两个显示面板，因为后面将要在第二个面板中显示进度条，所以将第二个面板的Style属性设置为psOwnerDraw.将Button1组件的Caption属性设置为“演示操作”。
　　3.在Unit1.pas文件的TForm1的类型定义中添加下面的变量定义：
　　……
　　private
　　{ Private declarations }
　　progressBar：TProgressBar；// 进度条组件
　　progressBarRect：TRect； // 进度条组件的尺寸
　　public
　　{ Public declarations }
　　……
　　4.在状态栏的OnDrawPanel事件的处理过程中，获取将Style属性设置为psOwnerDraw的面板的尺寸。添加StatusBar1组件的OnDrawPanel事件的处理过程如下：
　　procedure TForm1.StatusBar1DrawPanel（StatusBar： TStatusBar；
　　Panel： TStatusPanel； const Rect： TRect）；
　　begin
　　// 进度条组件的尺寸设定为状态条中的第二个显示面板的尺寸，因为该面板的Style属性已被设置为psOwnerDraw
　　progressBarRect：=Rect；
　　end；
　　5.在按下按钮Button1组件时将执行一个模拟计算过程的循环操作，同时动态地在StatusBar1的第二个面板中创建并显示ProgressBar组件，并将其父级设置为StatusBar1组件。添加Button1组件的OnClick事件的处理过程如下：
　　procedure TForm1.Button1Click（Sender： TObject）；
　　var
　　// I为循环变量， StepCount为执行循环的总数目
　　I，StepCount ： Integer；
　　begin
　　//动态创建进度条组件progressBar
　　progressBar：=TProgressBar.Create（Form1）；
　　StepCount：=10000； // 循环的总数目
　　with progressBar do
　　begin
　　// 先确定进度条组件的尺寸和位置
　　Top：=ProgressBarRect.Top；
　　Left：=ProgressBarRect.Left；
　　Width：=ProgressBarRect.Right－ProgressBarRect.Left；
　　Height：=ProgressBarRect.Bottom－ProgressBarRect.Top；
　　Visible：=True； // 使进度条可见
　　try
　　Parent：=StatusBar1； // parent属性设置为状态栏组件
　　Min：=0；// 设定进度条的范围和步长
　　Max：=StepCount；
　　Step：=1；
　　for I：=1 to StepCount do
　　begin
　　Stepit；// 循环使进度显示条累加
　　end；
　　MessageDlg（′演示操作已经完成！′， mtInformation， [mbOK]， 0）；
　　finally
　　Free；// 最后释放进度条组件占用的资源
　　end；
　　end；
　　end；
　　通过这种方法我们就可以在状态条中动态地添加进度条，同样的原理还用于在状态栏中添加其他的组件，过程基本一致。

Answer 2

实现这个效果的进度条是 raize控件里的 

属于display标签页下 RzProgressBar;

只要控制 该控件的 Percent 就ok

如图。

-------------------------

你需要做的~下载一个razie控件~

安装上~找到这个RzProgressBar，脱两个在界面上~

具体控制都是通过代码控制。

颜色什么的都在属性里有。

------------------------

over，希望对你有帮助

Answer 3

放2个label到界面上，label2显示标题，label1显示颜色。

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
const
WIDTH1=100;//这时进度条的宽。随便设。
begin
self.Label2.Caption:='0%'; //标题初始化，显示0%
self.Label2.AutoSize:=false;
self.Label2.Alignment:=taCenter;
self.Label2.Width:=WIDTH1;

self.Label1.Left:=self.Label2.Left; //把两个label对齐
self.Label1.Top:=self.Label2.Top;
self.Label1.Color:=clLime; //进度条颜色
self.Label1.AutoSize:=false;
self.Label1.Caption:=''; //label1不显示标题
self.Label1.Transparent:=false; //透明要关闭
for I := 0 to 100 do //进度分100份显示
begin
self.Label1.Width:=i*WIDTH1 div 100;//更改label的宽，模拟进度条。没有使用TProgressBar组件。
self.Label2.Caption:=inttostr(i)+'%';
sleep(50); //延时，根据需要取舍
application.ProcessMessages; //及时处理消息
end;
end;

Answer 4

不需要那么麻烦，原生控件即可。
Samples下面，TGauge控件，完美实现。

属性设置：
BorderStyle: bsNone
ForeColor: clLime
Height: 16
进度：Progress