| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Mouse Scroll в DBGrid [D5]

maxol67 ©   (2003-05-23 10:28:00) 

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

---

maxol67   (2003-05-23 13:48:00) [1]

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;

---

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

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

---

maxol67   (2003-05-23 10:38:00) [3]

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

---

гончий   (2003-05-23 10:35:00) [4]

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

---

Alexandr   (2003-05-23 10:34:00) [5]

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

---

Anatoly Podgoretsky   (2003-05-23 10:33:00) [6]

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

---

Наверх