知道总进度的情况下可以这样，不知道总进度的情况我再看看
procedure TForm1.ProcedureName;
var
tmpMaxValue : integer;
tmpfrmGauge : TFrmGauge;
begin
tmpfrmGauge := TFrmGauge.Create(Application);
try
with Table1 do
begin
tmpMaxValue := 0;
while Not Eof do
begin
Inc(tmpMaxValue);
Next;
end;
tmpfrmGauge.Show;
tmpfrmGauge.Refresh;
tmpfrmGauge.GaugeProg.MaxValue := tmpMaxValue;
tmpMaxValue := 0;
first;
while not eof do
begin
Table2.Append;
begin
Table2.Fieldbyname('ColumnName1').asinteger := Fieldbyname('ColumnName1').asinteger;
end;
try
Table2.Post;
except
Table2.Cancel;
end;
Inc(tmpMaxValue);
tmpfrmGauge.GaugeProg.Progress := tmpMaxValue;
tmpfrmGauge.Refresh;
next;
end;
end;
finally
if tmpfrmGauge <> nil then tmpfrmGauge.Free;
end;
end;
