求助：DBGrid的垂直滚动条滚动的时候，数据库可以不可以不跟着滚啊！

Question

现在 DBGrid的垂直滚动条滚动的时候，数据库也跟着滚动！
有什么方法可以使数据库不跟随滚动 ！谢谢

Answer 1

不用DBGrid，用StringGrid吧，可控性更大。

Answer 2

楼主不想用进度条，是不是想自己写代码实现数据移动吗？如果是这样的话，那你就把    DBGrid1.Enabled:=false;

Answer 3

想用DBGRID的 垂直滚动条 ，但是 滚动条滚动的时候会把数据库里面的也滚动了
希望是滚动垂直滚动条的时候不滚动数据库里面的数据

Answer 4

你使用滚动条不会对数据库里面有影响的，
“想用DBGRID的 垂直滚动条 ，但是 滚动条滚动的时候会把数据库里面的也滚动了
希望是滚动垂直滚动条的时候不滚动数据库里面的数据”
你是怎么得到这个结论的

Answer 5

放两个按钮，一个caption是“锁定”，一个caption是“查找”，定义一个全局变量i:integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
    i:=adoquery1.fieldbyname('id').AsInteger;定位按钮
end;procedure TForm1.Button2Click(Sender: TObject);
begin
    adoquery1.Locate('id',i,[loCaseInsensitive]);查找按钮
end;
id字段为表中的主键

Answer 6

DBGrid应该是不行的.你可以换ListView 来显示,但是要自己填充数据.

Answer 7

是锁定某条数据 
ADOQuery1.DisabelControls该放在哪里好呢
还是用其他方法实现呢

Answer 8

看看这段代码，也许对你有帮助……
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ADODB, Grids, DBGrids;type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    FOldProc : TWndMethod;
    procedure MyProc(var message : TMessage);
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
begin
  FOldProc := dbgrid1.WindowProc;
  dbgrid1.WindowProc := MyProc;
end;procedure TForm1.MyProc(var message: TMessage);
begin
  if message.Msg = WM_VSCROLL then
    showmessage('vscroll')
  else if message.Msg = WM_HSCROLL then
    showmessage('hscroll');
  FOldProc(message);
end;end.

Answer 9

EHLib控件好像可以使用滚轮的!使用滚轮,数据库的记录好像是不会改变的!