Скролл колесиком

← →
va (2004-09-24 14:42) [0]

Господа! подскажите, как сделать чтобы TDBGrid делал нормальную прокрутку по колесику мышки

← →
Леван (2004-09-24 16:23) [1]

Сброс на форма ApplicationEvents и напиши обработчик:

procedure TMEDF0.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
var
I: SmallInt;
begin
if Msg.message = WM_MOUSEWHEEL then
begin
Msg.message := WM_KEYDOWN;
Msg.lParam := 0;
I := HiWord(Msg.wParam);
if I > 0 then
Msg.wParam := VK_UP
else
Msg.wParam := VK_DOWN;
Handled := False;
end;
end;

← →
PPasha (2004-09-24 16:55) [2]

Если говорить про компонеты, то я переопределил два метода:

function TVAPCustomGrid.DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean;
begin
Result := inherited DoMouseWheelDown(Shift, MousePos);
if not Result then
Perform(WM_VSCROLL, 1, 0);
end;

function TVAPCustomGrid.DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean;
begin
Result := inherited DoMouseWheelUp(Shift, MousePos);
if not Result then
Perform(WM_VSCROLL, 0, 0);
end;

← →
va (2004-09-29 19:07) [3]

Большое спасибочки, все получилось.

Скролл колесиком Найти похожие ветки