end;
關鍵問題解決之后,我們來一個小例子,這樣就可以有一個全局的印象了,控件的擺放如(圖3)所示,編寫代碼如下:

控件的擺放
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
ProgressBar1.Position := 0;
ProgressBar1.Max := 100;
延伸閱讀
文章來源于領測軟件測試網 http://www.kjueaiud.com/
發布: 2008-5-16 10:44 | 作者: 不詳 | 來源: 天極網 | 查看: 85次 | 進入軟件測試論壇討論
文章來源于領測軟件測試網 http://www.kjueaiud.com/