子窗口ShowModal后如何在主窗口中修改子窗口中的进度条控件的位置

Question

我做了一个程序，在主窗口进行一些处理的时候弹出一个字窗口，自窗口中有一个进度条，用来显示主窗口中某个处理过程的进度。可是一用ShowModal显示子窗口后整个程序就停留在那里了，一下的处理也不进行了，用Show就可以，由于功能上的要求必须用ShowModal,所以小弟我比较郁闷，请各位大虾多多帮助。程序如下：TForm1.OpenImage()
var
  i:integer;
begin
  Form2.ShowModal();
  for i:=0 to OpenDlg.FileCount-1
  begin
    OpenFile(OpenDlg.Files[i].FileName;
    Form2.ProgressBar1.Position := i;
  end;
end;  当 Form2.ShowModal();这句执行后后面的程序就不执行了，可是Show可以。

Answer 1

showmodal需要有一个返回值mrOK或者mrCancel，只是受到这个返回值之后主程序才会继续执行，所以，你用showmodal之后进度条不动，那是因为程序在等待那个返回值。你可以尝试用另外一个线程来操作进度条，或者把操作进度条的工作放在Form2里面来做。