17-11-2012, 10:50 PM
يمكنك كتابة إجراء Procedure
كود :
private
procedure ProgressTable(ADataSet: TDataSet);
end;
...
procedure TForm1.ProgressTable(ADataSet: TDataSet);
begin
ProgressBar1.Position := 0;
ProgressBar1.Min := 0;
ProgressBar1.Max := ADataSet.RecordCount;
Application.ProcessMessages;
with ADataSet do begin
DisableControls;
while not Eof do begin
ProgressBar1.Position := RecNo ;
ProgressBar1.Update;
Next;
end;
EnableControls;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ProgressTable(ADOTable1);
end;
اللهم احقن دماء المسلمين، لا تنسوهم بالدعاء...