这是一个delphi控件，可以参考delphi帮助
TProgressBar displays a simple progress bar.
Unit
ComCtrls
Description
Use TProgressBar to add a progress bar to a form. Progress bars provide users with visual feedback about the progress of a procedure within an application.As the procedure progresses, the rectangular progress bar gradually fills from left to right with the system highlight color.
发表于 2007-11-1 10:01:26
楼主