Fórum Como Desabilitar O Scroll Do Mouse No Stringgrid? #345781

Consegui resolver, para quem precisar coloquei as instruções abaixo:

1º Coloque um ApplicationEvents no form;
2º No evento [b:562201b34e]OnMessage[/b:562201b34e] digite o seguinte código:

procedure TForm1.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 handled := False;
end;
end;

[b:562201b34e][/b:562201b34e]