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;

Hat sich gelöst, habe es einfach in die Komponente eingebunden.

Aus der Sicht fuer ein vernuenftiges User-Interface ist das eine dumme Idee. Wo kein Scrollbalken ist soll kein Scrollen moeglich sein.

Wie kommst du auf so eine Antwort, wenn du doch nicht mal weißt, warum ich das so mache ? Es ist eine Listbox mit einer ersetzten ScrollBar.....Mouserad MUSS deshalb möglich sein.

Wenn du schreibst "scrollbarlose Listbox", dann koennte man doch vermuten das die Listbox keinen Scrollbar hat.
Solange sie aber ein visuelles Aequivalent hat, ist alles in Ordnung (zumindest aus UI-Sicht).

Jo, allerdings nervt es ein wenig, dass die Scrollbars nicht direkt ersetzbar sind bzw. nur sehr schwer. Sonst hätte ich diese Probleme nicht.

Auch wenn es sich schon gekläart hat: Dir ist schon klar, dass du in den obigen Code nirgends sagst, dass sich etwas an deiner Listbox ändern soll

PS: Ich habe auch angenommen, dass da nichts zu scrollen ist (Aber da ich weis worum es wahrscheinlich geht, ist es jetzt klar )