Mouse Scroll в DBGrid

← →
maxol67 (2003-05-23 10:28) [0]

Подскажите, пожалуйста, если кто знает,
как сделать так, чтобы работало колесо мыши в DBGrid?

← →
Anatoly Podgoretsky (2003-05-23 10:33) [1]

Так вроде бы работает

← →
Alexandr (2003-05-23 10:34) [2]

ну или dbgrideh заюзать

← →
гончий (2003-05-23 10:35) [3]

Как вариант: подправить DbGrids.pas и бросить его в папку с проектом.

← →
maxol67 (2003-05-23 10:38) [4]

у меня ODACовский CRGrid - в нем колесо не работает. Подскажите, где посмотреть, что надо в pas править.

← →
Кулюкин Олег (2003-05-23 10:45) [5]

Можно обрабатывать сообщение WM_MOUSEWHEEL.
Посмотрите, как это сделано в RX.

← →
maxol67 (2003-05-23 13:48) [6]

thanks, получилось. Добавил в CRGrid.pas следующее и все заработало

function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; override;
function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; override;

property OnMouseWheelDown;
property OnMouseWheelUp;

function TCRGrid.DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean;
begin
Result := False;
if Assigned(OnMouseWheelDown) then
OnMouseWheelDown(Self, Shift, MousePos, Result);
if not Result then begin
//if not AcquireFocus then Exit;
if Datalink.Active then begin
Result := Datalink.DataSet.MoveBy(1) <> 0;
end;
end;
end;

function TCRGrid.DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean;
begin
Result := False;
if Assigned(OnMouseWheelUp) then
OnMouseWheelUp(Self, Shift, MousePos, Result);
if not Result then begin
//if not AcquireFocus then Exit;
if Datalink.Active then begin
Result := Datalink.DataSet.MoveBy(-1) <> 0;
end;
end;
end;

Mouse Scroll в DBGrid Найти похожие ветки