[delphi-explorer]

Подскажите как задействовать прокрутку мышью в DBСtrlGrid. Нужно чтобы один шаг ровнялся прокрутке на одну запись. Поискал по всему интернету но готового решения не нашел. Часто упоминается про OnMouseWheel но у этого компонента нет своего такого события. Может кто то уже успешно занимался этим вопросом?

[NumLock]

Нужно переопределить DoMouseWheel(). Либо в наследнике, либо через хак.

[delphi-explorer]

Сообщение от NumLock

Нужно переопределить DoMouseWheel(). Либо в наследнике, либо через хак.

А примера нет случайно? Я мышей не ловил раньше при помощи delphi)). Буду благодарен если научите

[NumLock]

Сообщение от delphi-explorer

А примера нет случайно? Я мышей не ловил раньше при помощи delphi)). Буду благодарен если научите

Я с телефона в интернете, поэтому сейчас никак, вечером если только.

[delphi-explorer]

Сообщение от NumLock

Я с телефона в интернете, поэтому сейчас никак, вечером если только.

Я покопаюсь еще в дебрях форума. Если не затруднит, напишите при возможности пример.

[Alegun]

Не совсем то, что требуется, переход не точно по записям, но вот пример прокрутки с подкладкой глобальной процедуры колёсика

Код:

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
 if WindowFromPoint(MousePos) = DBCtrlGrid1.Handle then
  if WheelDelta > 0 then
   DBCtrlGrid1.Perform(WM_VScroll, SB_LINEUP, 0)
    else
     DBCtrlGrid1.Perform(WM_VScroll, SB_LINEDOWN, 0);
end;