关于进度条中处理进度的处理过程的问题(50分)

我想看看进度条是如何处理进度显示的，但是查到的进度条中处理进度的处理过程中<br>（TProgressBar及其父类）没有处理进度条显示的处理，不知TProgressBar中进度显<br>示是如何进行处理的

设置Position属性：<br>procedure TProgressBar.SetPosition(Value: Integer);<br>begin<br>&nbsp; if not F32BitMode and ((Value &lt; 0) or (Value &gt; Limit16)) then<br>&nbsp; &nbsp; ProgressLimitError;<br>&nbsp; if HandleAllocated then SendMessage(Handle, PBM_SETPOS, Value, 0)<br>&nbsp; else FPosition := Value;<br>end;<br><br>想自己处理，处理PBM_SETPOS消息吧。<br>

ProgressBar是封装了windows的Progessbar组件<br>是通过发消息来，处理进度的<br>你可以参考Samples页的TGauge组件<br>同样是进度条。