ハンドル中のクエリ実行の進捗状況を確認する方法は？

Question

私はハンドルのためのDelphiで、次のコードを使用：

procedure TForm1.ADOQuery1FetchProgress(DataSet: TCustomADODataSet; Progress, 

    MaxProgress: Integer; var EventStatus: TEventStatus); 

begin 

    Progressbar1.Visible:=true; 

    Progressbar1.Max:=MaxProgress; 

    Progressbar1.Ppsitian:=Progress; 

    Progressbar1.Visible:=false; 

end; 

けど.... を私は何の効果を見ることができない（このコードは実行されません）

私はの進行状況を表示したいですユーザーがデータベース内のSEARCHのボタンをクリックしてから進行状況バーのフィルタを終了するまでの間のクエリの実行。

ボタンのonclickコード：

with ADOQuery1 do 

begin 

SQL.Clear; 

SQL.Add('select * from tbl1 where id = '+Edit1.Text); 

Open; 

end; 

が、OnFetchProgressイベントに任意のコードを書いていないかのように私は、プログレスバーの任意の変異をしません。

私はあなたを代表しましたか？

Answer 1

あなたは、このサンプル

with ADOQuery1 do 
begin 
SQL.Clear; 
SQL.Add('select * from tbl1 where id = '+Edit1.Text); 
ExecuteOptions:=[eoAsyncFetch]; 
Open; 
end; 


procedure TForm1.ADOQuery1FetchProgress(DataSet: TCustomADODataSet; Progress, 
    MaxProgress: Integer; var EventStatus: TEventStatus); 
begin 
    ProgressBar1.Max  :=MaxProgress; 
    ProgressBar1.Position :=Progress; 
    Application.ProcessMessages; 
end;