Скачать: CL | DM;

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;

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c