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 ?

zusammenfalten · markieren

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;

Scrollrad und Scrollbarlose Listbox

Scrollrad und Scrollbarlose Listbox

Forumregeln