Delphi-Version Grid Mausrad

[arnof]

wird das jetzt unterstützt ?

Ich mache das so, das geht seit Delphi 5 (getestet), Delphi 2 habe ich doch schon lange Entsorgt:

TApplicationEvents Komponente auf die Form, dann wandele ich die Drehrichtung in Cursor Up und down:

Code:

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;

Dann wird das Mausrad von jeder Komponente unterstützt