(Resolvido) usar rolete do mouse no DBGrid

[vms]

uso este codigo para usar o rolete do mouse nos componentes

mas o problema pra mim e que ele move todos (não de uma vez)

tenho algumas tabelas relacionadas no meu projeto (usando o lookup)

as vezes por falta de atenção uso o rolete do mouse com o foco sobre o lookup

e acaba alterando valores no Grid

existe uma forma de usar o rolete do mouse apenas no dbgrid?

isira um componente ApplicationEvents

procedure TFRelatorio.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;

[Jhonas]

existe uma forma de usar o rolete do mouse apenas no dbgrid?

existe sim... é só modificar o codigo desta maneira

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
var
i: SmallInt;
begin
if (ActiveControl is TDBGrid) then
   with TDBGrid(ActiveControl) do
   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;
end;

abraço

[vms]

valeu jhonas, deu certo "ficou so o filé"