Прокрутка DBGrid?

← →
SergeyM © (2004-05-13 16:51) [0]

Привет всем!
Подскажите как прокрутить DBGrid колесиком мыши?

← →
Семен Сорокин © (2004-05-13 16:54) [1]

написать наследника, где обработать WM_MOUSEWHEEL (NT...)

← →
SergeyM © (2004-05-13 16:58) [2]

А ченибудь с примером можно?

← →
Arm79 © (2004-05-13 18:36) [3]

rxdbgrid - уже реализовано

← →
d'aron © (2004-05-13 18:54) [4]

DBGridEh

← →
sniknik © (2004-05-13 23:41) [5]

TMyDBGrid = class(TDBGrid); TForm1 = class(TForm) ... procedure MyFormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); ... end; procedure TForm1.FormCreate(Sender: TObject); begin TMyDBGrid(DBGrid1).OnMouseWheel:= MyFormMouseWheel; end; procedure TForm1.MyFormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin if (Sender is TDBGrid) and TDBGrid(Sender).DataSource.DataSet.Active then begin if WheelDelta > 10 then TDBGrid(Sender).DataSource.DataSet.Prior; if WheelDelta < -10 then TDBGrid(Sender).DataSource.DataSet.Next; Handled:= true; end; end;

← →
DrPass © (2004-05-13 23:47) [6]

Может, я неправильный программист, и у меня неправильная Delphi, неправильное колесико и неправильный TDBGrid... но у меня он и так прокручивается от колесика мыши...

DrPass

А ты уверен что он прокручивает?
В простом DBGrid колесико работает только в поле видимости компонента, но не выходит за пределы.

sniknik

Очередное тебе спасибо, ты мне уже не раз хорошие советы давал.

Вопрос снят.

Поставь нормальный драйвер для мыши и все будет прокручиваться

> Поставь нормальный драйвер для мыши и все будет прокручиваться

Правда?

Прокрутка DBGrid? Найти похожие ветки