Mausrad in DBGrid

[christio]

Hi,

Für das korrekte Funktionieren des Mausrades verwendete ich bis Delphi 2010 folgenden Code:

Delphi-Quellcode:

var
  i: smallint; 
begin
  if ((Msg.message = WM_MOUSEWHEEL) and (Screen.ActiveControl is TCustomDBGrid)) 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;

Dieser Code scheint in Delphi XE2 nicht mehr richtig zu funktionieren, da ich immer ein VK_UP erhalte (msg.wParam ist immer positiv)
Hängt dies mit dem Typ NativeUInt zusammen?