多线程使用控件，ProgressBar和label.

Question

//每次好像只能有一个线程运行。
procedure ClearThread.Execute;
var
 i:integer;
begin
  for i := 0  to high(imgList) do
  begin
    frmMain.lblInfo.Caption:='请稍后，正在清除第' +intToStr(frmMain.mainProgressBar.Position+1) +
                             '张图像。';
    if not DeleteFile(PChar(imgList[i])) then   flasenum:= flasenum+1;    //如果删除失败
    frmMain.mainProgressBar.Position:=frmMain.mainProgressBar.Position+1   ;
  end;
//delEnd:=true;
end;

Answer 1

问题已经解决,看来不管什么问题只有靠自己了。