大虾指教： 怎么实现这样的屏幕效果 急急！！！

Question

当点击一个button 后　adoquery开始查询数据库
此时的鼠标的形状没有变请教　1－怎么在此时改变鼠标的形状
　　　2－怎么屏幕上显示类似progressbar那样的东西，提醒客户
　　　程序正在进行数据访问　请等候
俺在from上加一个　ttimer 和　progressbar
在点击button后　
设定　
progressbar.min =0; progressbar.max=100;
progressbar.position;=0
之后是　adoquery1.open在timer的timer事件写
begin
if progressbar.prosition = 100
   progressbar.position=0;progressbar.StepIt
end;不解的是　progressbar  并没有响应请指教
　谢谢

Answer 1

procedure TForm1.ADOQuery1FetchProgress(DataSet: TCustomADODataSet;
  Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
beginend;

Answer 2

这个事件可以让你的PROGRESSBAR移动；

Answer 3

BEFOROPEN里改变；
AFTEROPEN里改回来；

Answer 4

procedure TForm1.ADOQuery1FetchProgress(DataSet: TCustomADODataSet;
  Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
begin
  with form2.progressbar1 do
  begin
    Max:=MaxProgress;    
    Position:=progress;
    form2.show;
  end;end;

Answer 5

ADO要设成异步方式才能用楼上的方法

Answer 6

procedure TForm1.ADOQuery1FetchProgress(DataSet: TCustomADODataSet;
  Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
begin
  with progressbar1 do
  begin
    Max:=MaxProgress;    
    Position:=progress;
    //application.postmessage;
  end;adoquery 连联datamodule  里的adoconnection connectoption = caAsynconnect
 progressbar1 没有响应！
怎么了
end;