سؤال حول progressbar و query

[merouane]

باستعمال مكونات FireDAC
FDQuery ثم Events (أو Evenements) ثم AfterGetRecord

ProgressBar1.Max = 1000000

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
  FDQuery1.Active := True;
  ProgressBar1.Position := ProgressBar1.Max;
end;

procedure TForm1.FDQuery1AfterGetRecord(DataSet: TFDDataSet);
begin
  ProgressBar1.StepBy(1);
end;