如何控制ProgressBar上的块数(50分)

  • 主题发起人 月满C楼
  • 开始时间

月满C楼

Unregistered / Unconfirmed
GUEST, unregistred user!
{pb滚动条的属性设置
pb.min:=1;
pb.step:=1;
pb.max:=10;
}
目标:[red]要使进度条上的块数就是i,怎么实现?(i <10的)[/red]
procedure Ppb(i:integer);
begin

pb.position:=0;
pb.position:=i;
end;
//这样写没效果呢
 
不行,自己写个控件吧
 
d-i-n-g一下
 
不明白楼主什么意思
 
就是控制滚动条上,滑动快的数目为i的值
 
RzProgressBar1
這個控件可以顯示,
 
RzProgressBar1?
好,我测试一下,我刚好有使用该控件
 
可以通过代码实现:
PB.Max:=10;
pb.position:=0;
while not Query.eofdo
begin
//-----------;
pb.position:=pb.position+1;
Query.next;
end;
........
pb.position:=0;
 
{可以通过代码实现:
PB.Max:=10;
pb.position:=0;
while not Query.eofdo
begin
//-----------;
pb.position:=pb.position+1;
Query.next;
end;
........
pb.position:=0;
}
我自己写过类似的代码,不行,然后发问,很多人都说不行
 
这样做没多大意义吧
 
谁说没意义的啊,一个电话打进来,如果系统中所有电话都在忙,则该电话就排队等候 ,这个时候就只有1个滚动块,这个时候又一个电话打进来,这个时候就两个滚动块 ,又来一个就3个滚动块 ,......,这样在不大的系统中使用,就能表达得非常清晰了
 
还是没看懂什么意思,跟电话有什么关系?
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
959
SUNSTONE的Delphi笔记
S
S
回复
0
查看
779
SUNSTONE的Delphi笔记
S
顶部