用按钮如何控制DBGrid1的滚动条下滑具体谢谢 ( 积分: 100 )

我用ADO连接的一个表格，还有一个进程条，我想按下按钮时！进程条往前走,表格的滚动条向下滑动，等进程条到100的时表格的滚动条滑到最底下。

我用ADO连接的一个表格，还有一个进程条，我想按下按钮时！进程条往前走,表格的滚动条向下滑动，等进程条到100的时表格的滚动条滑到最底下。

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if not AdoQuery1.Active then
AdoQuery1.Open;
Gauge1.MaxValue := AdoQuery1.RecordCount;
AdoQuery1.First;
with AdoQuery1do
begin
while Not Eofdo
begin
Gauge1.Progress := RecNo;
AdoQuery1.MoveBy(1);
Application.ProcessMessages;
end;
end;
end;

这么朋友你的内容写的太复杂了！ 此问题以得到解决！谢谢大家！

df