Roda wheel do mouse

[cefantacini]

Estou atualizando um sistema do Delphi 7 para o Delphi  11 e ao tentar subir e descer com a roda do mouse, dentro dos componentes dbgrid, stringgrid, memo, etc ele não executa o movimento certo, independente do movimento ele apenas sobe.

No delphi 7 funcionava normalmente.

Criando um projeto do 0 no Delphi 11 funciona normalmente.

É alguma coisa com o projeto migrado ....

Alguém já passou por situação semelhante e tem alguma dica?

 

[cefantacini]

Eu consegui resolver, eu tinha um código no Delphi 7 que estava gerando o erro no Delphi 11.

Se quiser pode fechar o tópico...

 

unit...;
.
.
type TEvents = Class
  protected
    procedure DefaultApplicationMessage( var Msg: tagMSG; var Handled: Boolean );
  end;
.
.
procedure...
begin
  Events := TEvents.Create;
  Application.OnMessage := Events.DefaultApplicationMessage;
  Events.Free;
end;
.
.
procedure TEvents.DefaultApplicationMessage( 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;
 

 

[Alexandre de Paula]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.