L liuchong Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-01 #1 窗体上有一个按钮一个ProgressBar1控件。我想点击按钮让ProgressBar1控件的进度条一个一个的向前走一直走到头为止。
L liuchong Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-01 #2 窗体上有一个按钮一个ProgressBar1控件。我想点击按钮让ProgressBar1控件的进度条一个一个的向前走一直走到头为止。
A app2001 Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-01 #3 procedure TForm1.Button1Click(Sender: TObject); var i:Integer; begin ProgressBar1.Max:=100; ProgressBar1.Position:=1; for i :=0 to 100do begin Application.ProcessMessages; ProgressBar1.Position:=ProgressBar1.Position+1; end; end;
procedure TForm1.Button1Click(Sender: TObject); var i:Integer; begin ProgressBar1.Max:=100; ProgressBar1.Position:=1; for i :=0 to 100do begin Application.ProcessMessages; ProgressBar1.Position:=ProgressBar1.Position+1; end; end;
B bryantd Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-01 #4 那要看你的整个进度是怎样的，楼上的知识为你举了一个例子，你要弄明白这点！
L liuchong Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-01 #5 我要的是进度条一个一个的往前走！让他非常明显的看了来！像刚进入2000系统那样子 前面的哥哥的东东太快了。
R Rsymzqtsh Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-01 #6 可以在楼上的示例中加上 。。。。。。 Application.ProcessMessages; Sleep(1000); ProgressBar1.Position := ProgressBar1.Position + 1; ............................
可以在楼上的示例中加上 。。。。。。 Application.ProcessMessages; Sleep(1000); ProgressBar1.Position := ProgressBar1.Position + 1; ............................
S shangchao Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-01 #7 别用sleep(1000),我用了，结果是系统在这个过程中独占cpu，整个程序不再响应，直到sleep结束。
赛 赛特 Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-01 #9 程序本身加载快不好吗？你想向用户显示你的程序很大很牛吧？？呵呵！！……
