很多初学DELPHI编程的朋友总是为了进度条苦恼...要么做假的,没办法实时的显示真实的数据., V- i  U, A+ S" k
7 B7 O9 s, m* l. k3 N4 h
   下面我告诉大家一个小例子,或许你能从中得到你想知道的.5 {) {: s2 s) c& U5 y+ H9 S

' y4 a4 I) T- N0 `   因为我比较经常写些网络程序,当然用到IDHTTP的控件自然就经常,那就以IDHTTP为例子给大家说下,
- y* A0 F8 h. k6 \2 ~8 ^# {) b1 o: d
在IDHTTP中如何实现进度条的速度,假设你要编写的网络下载程序,看下面
* \1 Y4 U! Q9 [- D" P* @3 j5 L& @5 K& s( D2 c
   procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;$ Z+ l* o" a2 Q9 G; d  O5 h8 h8 m; W
  const AWorkCount: Integer);
0 A& ]' D( M/ A$ g( \* \begin5 Z* m7 s- x8 L1 A' ?2 n# Y
ProgressBar1.Position:=AWorkCount;7 h# N0 M  x# @$ {9 h2 K
end;
& ^* [8 Q. G0 T. O$ [
9 `9 f& l4 T: L7 z  procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
* I5 R. W1 X6 C, j0 T& Q  const AWorkCountMax: Integer);7 P& I$ x* j; @
begin. I( M( B, u* |( [7 [4 `. f
ProgressBar1.Max:=AWorkCountMax;
/ }% _6 ?: @: j4 H  ProgressBar1.Min:=0;
5 h2 e  c( p1 Z2 U# _5 v& j% e  ProgressBar1.Position:=0;$ r+ r( p8 v: k- K9 V' D7 T, F8 Q
end;  A1 @& x# z% B) K4 O6 O
( }+ m. g, i% L+ e. E

' ]' d3 H  b2 Q* xprocedure TForm1.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);( ~* M/ [8 Q! d; d7 r- s
begin# ^3 j( m! N& c1 I2 n6 ]* U
ProgressBar1.Position:=ProgressBar1.Max;" b7 B3 g* p3 ]5 b2 r) Y' g
7 e4 n: X" w6 {) r7 r
end;& W/ ]8 V2 l% h/ ?. J4 T$ B9 `

. f6 k5 v2 m4 C$ M% y8 S7 f( H* d4 C2 x( I6 c, P  B
  懂了吗?在IDHTTP的时间中加上,很简单是不?
# w+ e- r! W7 F) S) X' A
) i- A2 o% L0 p% | 希望对你有所帮助.

编程一概不懂,,,看起来很牛哦~