我在 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 事件中编写任何代码。
我代表你了吗?