По умолчанию при использовании колесика мыши в списках и таблицах перемещается бегунок ScrollBar. В случае, если необходимо, чтобы перемещение происходило по элементам списка (таблицы), используйте следующий код:
//В разделе Public укажите:
procedure AppMessage(var Msg: TMsg; var Handled: Boolean);//В разделе Implementation:
procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
var
i: SmallInt;
beginif 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;// В файле проекта перед Application.Run запишите:
Application.OnMessage := Form1.AppMessage;
