Форум: "Базы";
Текущий архив: 2002.07.15;
Скачать: [xml.tar.bz2];

Вниз

Еще о DBGrid   Найти похожие ветки 

← →
Teas   (2002-06-19 13:02) [0]

Мастера, помогите разобраться с скроллером мыши. Когда я прокручиваю записи в DBGrid скроллером, то прокрутка идет только в пределах экрана. И чтобы прокрутить всю таблицу приходиться прибегать к клавиатуре. Как решить?

---

← →
Lusha   (2002-06-19 14:54) [1]

Например так...


type
TMyDBGrid = class(TDBGrid);

TForm1 = class(TForm)
DBGrid1: TDBGrid;
...
procedure FormCreate(Sender: TObject);
...
private
procedure MouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
procedure MouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
...
end;

...
implementation

...

procedure TForm1.FormCreate(Sender: TObject);
begin
TMyDBGrid(DBGrid1).OnMouseWheelDown := MouseWheelDown;
TMyDBGrid(DBGrid1).OnMouseWheelUp := MouseWheelUp;
end;

...

procedure TForm1.MouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
TMyDBGrid(Sender).DataSource.DataSet.Next;
Handled := True;
end;

procedure TForm1.MouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
TMyDBGrid(Sender).DataSource.DataSet.Prior;
Handled := True;
end;

...



---

← →
Teas   (2002-06-19 21:06) [2]

Lusha, спасибо вам. Вы даете отличные примеры.

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.07.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.042 c