Пролистывание записей скроллбаром
Пролистывание записей скроллбаром
Пролистывание записей скроллбаром Стилет: 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. Надеюсь принцип ясен...
