скролинг TDBGrid

[azat]

Ктонибудь знает как можно заставить компонент TDBGrid "пролистывать" записи при двигании его скролбара ("в реальном времени", а не по MouseUP)?

[Stilet]

Это совсем не больно )

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ADODB;

type
  TDBGrid = class(DBGrids.TDBGrid)
   procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
  end;

  TForm1 = class(TForm)
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



{ TDBGrid }

procedure TDBGrid.WMVScroll(var Message: TWMVScroll);
begin
 Form1.Caption:=IntToStr(Message.Pos);
 Form1.ADOTable1.MoveBy(Message.Pos-Form1.ADOTable1.RecNo);
end;

end.

Надеюсь принцип ясен...

[azat]

Прикольно... только не совсем корректно работает. Если нажат на облась вне кнопки на скроле, то он перестает работать.
Да и вообще повторное двигание ползунка не возможно... ((

Можно ли сделать тоже самое для скролика мышки??? И есть ли где нибудь описания вот этих виндусовский сообщений, и то как их использовать...?
Спасибо.

[Stilet]

Есть конечно в SDK или в MSDN
SDK есть в (если не ошибаюсь) хелпе делфовом, а MSDN (как и прочие хелпы в том числе и их варианты на русском) мона погуглить )

[_SERGEYX_]

А лучше всего не использовать стандартный DBGrid и юзать какой-нибудь другой. Стандартный малопригоден для работы.

[Yurk@]

Можно ли сделать тоже самое для скролика мышки??? И есть ли где нибудь описания вот этих виндусовский сообщений, и то как их использовать...?

Посмотри здесь:
http://codebuild.info/viewtopic.php?t=150