Fórum scroll do mouse #332799

Neste [url=http://www.activedelphi.com.br/modules.php?op=modload&name=News&file=article&sid=373&mode=thread&order=0&thold=0]link[/url] tem uma dica.

Coloque esta função no form principal de seu sistema.


procedure TfrmPrincipal.OnMessageOwn(var Msg: TMsg; 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;