Scrollrad und Scrollbarlose Listbox

[Nils_13]

Hi,

ich habe eine scrollbarlose Listbox. Dementsprechend ist Scrollen mit dem Mouserad nicht mehr möglich. Ich habe folgenden Code eingebaut, aber er macht nichts. Muss ich ihn noch auf die Listbox beziehen ?

Delphi-Quellcode:

private
  procedure WMMouseWheel(var Msg: TWMMouseWheel); message WM_MOUSEWHEEL;

[...]

procedure TfrmMain.WMMouseWheel(var Msg: TWMMouseWheel);
begin
  if Msg.WheelDelta > 0 then
    Perform(WM_VSCROLL, SB_LINEUP, 0)
  else
    Perform(WM_VSCROLL, SB_LINEDOWN, 0);
  Msg.Result := 0;
end;