小弟想实现以下步骤，其中问题还望高人指点： 1、按钮按下后，跳出进程窗体 ——在BottonOnClick的第一句写上： form_progress.show；//？ 2、form_progress除了progressbar以外还必要放哪些控件，其中程式如何写？ 3、我想在按钮BottonOnClick事件里的程式完成后，关掉进程窗体 ——在BottonOnClick的最后写上: form_progress.hide； form_progress.free；//？ 4、那么，progressbar要在这段时间内走完，他怎么设定？

ffprince 你好： procedure TForm1.Button1Click(Sender: TObject); begin form_progress.Show; //显示进程条的窗体 form_progress.ProgressBar1.Min:=0; form_progress.ProgressBar1.Max:=100; form_progress.ProgressBar1.Position:=0; form_progress.ProgressBar1.Position:=form_progress.ProgressBar1.Position 100; showmessage('ok');//do something you want form_progress.Hide; form_progress.Free; end; ——行径窄处，留一步与人行—— ——Never give up, never surrender—— 發表人 - deity 於 2004/06/06 23:03:50

我试了上面的方法，有两个问题： 1、form_progress跳出后，其上的文字（label控件）不显示，只能看到progressbar控件； 2、而且progressbar控件直接就走满了（本来form_progress.ProgressBar1.Position:=0; form_progress.ProgressBar1.Position:=form_progress.ProgressBar1.Position 100; 这两句连着写，就是会有这种效果！） 怎么办？

引言: 我试了上面的方法，有两个问题： 1、form_progress跳出后，其上的文字（label控件）不显示，只能看到progressbar控件； 2、而且progressbar控件直接就走满了（本来form_progress.ProgressBar1.Position:=0; form_progress.ProgressBar1.Position:=form_progress.ProgressBar1.Position 100;//也就是说从0的开始加到最大值100，所以你可以改为小于最大值的值 这两句连着写，就是会有这种效果！） 怎么办？ 以上代码我在D7 WinXp，D6 Win98测试过，并没有你所说的第一种错误，你可以新建两个form1和form_progress,然后在form1中拉一个按钮，在form_progress中拉一个ProgressBar1和Label1，再在button1的onclick事件中写入上述代码，测试下，我这里并无任何错误，至于你所说的第二个错误，并不是说那两句话连着写就会出现这种效果，而是第二句，我让它一次性走满，当然你也可以根据你自己的需要，进行改进,我只是进行一个简单的演示而已 …… form_progress.ProgressBar1.Position:=form_progress.ProgressBar1.Position 10; showmessage('ok');//do something you want form_progress.ProgressBar1.Position:=form_progress.ProgressBar1.Position 10; showmessage('ok');//do another you want ……

这样说，不知会不会更清楚点 ——行径窄处，留一步与人行—— ——

你也可以参考下面的各种写法及应用： 如何實現顯示工作進度  http://delphi.ktop.com.tw/topic.php?topic_id=40561 如何做出像是windows拷貝時的form http://delphi.ktop.com.tw/topic.php?topic_id=42927 如何設計ProgressBar  http://delphi.ktop.com.tw/topic.php?topic_id=29234 關於資料在下載時，顯示目前讀取的百分比  http://delphi.ktop.com.tw/topic.php?topic_id=29234 顯示處理進度問題?  http://delphi.ktop.com.tw/topic.php?topic_id=22922 在站内找找看，大量有关的资料，可供参考 ——行径窄处，留一步与人行—— ——

多谢！我再仔细看看。