Scrollen per Mausrad will nicht

[daschaos]

Ausgeführt wurde alles, funktioniert hat es leider nich... so gehts aber jetzt:

Delphi-Quellcode:

procedure CMMouseWheel(var Message: TCMMouseWheel);
var
  ScrollDelta: Integer;
begin
  ScrollDelta := 0;

  inherited;

  if (Message.Result = 0) then
  begin
    with Message do
    begin
      Message.Result := 1;

      if ssCtrl in ShiftState then
        ScrollDelta := Sign(WheelDelta) * ClientHeight
      else
        ScrollDelta := WheelDelta;
      end;
  end;

  ScrollBarVer.Position := ScrollBarVer.Position  - ScrollDelta;
  Invalidate;
end;

Das einzige Problem ist noch, dass er weiterscrollt als er darf, da muss ich noch nach schauen...