试试以下方法 SubForm := TSubForm.Create(Application) try with SubForm do begin SubForm.FormStyle := fsStayOnTop; SubForm.Show; SubForm的进度条进度置0; SubForm的进度条上限置n; end; for i:=1 to n do begin //do 你要做的事情 SubForm的进度条StepIt; end; finally SubForm.Close; SubForm := nil; end;
把memo的属性连接到form1上
SubForm := TSubForm.Create(Application)
try
with SubForm do
begin
SubForm.FormStyle := fsStayOnTop;
SubForm.Show;
SubForm的进度条进度置0;
SubForm的进度条上限置n;
end; for i:=1 to n do
begin
//do 你要做的事情
SubForm的进度条StepIt;
end;
finally
SubForm.Close;
SubForm := nil;
end;