Gauge 进度条显示问题，大大们帮解决一下

Question

本帖最后由 wei_wu49036233 于 2011-04-16 20:12:55 编辑

Answer 1

var
  k :integer;//加一个变量
begin
  k := Memo1.Lines.Count-1;
  PBar2.MaxValue := k;
  PBar2.MinValue := 0;
......
  PBar2.Progress := k - i+1;

Answer 2

标准的进度条控件好像没有显示文字的属性，可以在旁边放一个label；或者自己再画一个进度条组件。

Answer 3

对，Gauge有显示名称的属性，只能在在附近加一个其它容器

Answer 4

for i:=Memo1.Lines.count-1 downto 0 do
改为
for i:=0 to Memo1.Lines.count-1 do

Answer 5

晕，我的CSDN账号丢掉了，怎么还会来提问
不知道拿我账号的人干嘛的。