delphi中的进度条的使用，在线等啊

Question

本帖最后由 sdxyhx 于 2011-05-11 10:10:42 编辑

Answer 1

搜索 Delay（10000） 这是一个延时函数 ,10秒后，动态设置进度条属性，可以吗？

Answer 2

pb_deta.Position:=Row;//在时钟里面控制时间 

Answer 3

procedure Delay(const uDelay:dword);
var
 n:dword;
begin
 n:=GetTickCount;
 while ((GetTickCount-n)<=uDelay) do
  application.ProcessMessages;
end;延时函数

Answer 4

你要均匀的动态效果 我想个了个方法 你加个Timer控件,如果你要1秒进10% 10秒到100%就在timer事件中写
ProgressBar1.Position := ProgressBar1.Position+10;每次进1%,那就把时间间隔改成100,毫秒,事件里写ProgressBar1.Position := ProgressBar1.Position+1;相信楼主能明白的意思,什么时候红做条动就让timer的enable为true;
楼上大侠们说的延时函数也可以的  你定义个delay函数,函数体楼上也给出来了,然后delay(10000)表示等10秒,然后让ProgressBar1.Position := 100就行了

Answer 5

ProgressBar1.Position := ProgressBar1.Position+1
1点1点加，应该还是比较流畅的吧

Answer 6

我是刚弄delphi 不久的，不懂线程那些啊，晕呀，