Umleiten von Mousewheel events funktioniert mit TStringGrid nicht

[DeddyH]

Sind wir noch beim StringGrid? Und was möchtest Du mit dem Mausrad machen? Welche Delphi-Version? Mehr Infos, bitte.

[JDS]

Entschuldigung!
Ich hatte bei der letzten Mail eine falsche Überschrift bzw. ein falsches Betreff.
Es geht mir nur um das Mausrad:
Wie frage ich es in Delphi ab, bzw. wie reagiere ich darauf?

Danke!

P.S.: Könnten wir nicht direkt mailen? - Danke!

[e-mail]

[Klaus01]

Zitat von JDS:

Entschuldigung!
Ich hatte bei der letzten Mail eine falsche Überschrift bzw. ein falsches Betreff.
Es geht mir nur um das Mausrad:
Wie frage ich es in Delphi ab, bzw. wie reagiere ich darauf?

Danke!

P.S.: Könnten wir nicht direkt mailen? - Danke!

[e-mail]

gibt es da nicht ein Event onMouseWheel?

Grüße
Klaus

[himitsu]

OnMouseWeel reagiert nur auf VScroll, nicht HScroll.
stimmt zwar, aber V und H war im anderen Thread

Ja, gibt bestimmt, aber in einigen Controls ist es nicht Published.

[Cypheros]

So wird das glaube ich bei VirtualTreeView gemacht.

Delphi-Quellcode:

procedure CMMouseWheel(var Message: TCMMouseWheel); message CM_MOUSEWHEEL;

...

procedure TmyListView.CMMouseWheel(var Message: TCMMouseWheel);

var
  ScrollAmount: Integer;
  ScrollLines: DWORD;
  RTLFactor: Integer;
  WheelFactor: Double;
begin
  inherited;

  if Message.Result = 0  then
  begin
    with Message do
    begin
      Result := 1;
      WheelFactor := WheelDelta / WHEEL_DELTA;
      if (FRangeY > ClientHeight) and (not (ssShift in ShiftState)) then
      begin
        // Scroll vertically if there's something to scroll...
        if ssCtrl in ShiftState then
          ScrollAmount := Trunc(WheelFactor * ClientHeight)
        else
        begin
          SystemParametersInfo(SPI_GETWHEELSCROLLLINES, 0, @ScrollLines, 0);
          if ScrollLines = WHEEL_PAGESCROLL then
            ScrollAmount := Trunc(WheelFactor * ClientHeight)
          else
            ScrollAmount := Integer(Trunc(WheelFactor * ScrollLines * FRowHeight / 10));
        end;
        SetOffsetY(FOffsetY + ScrollAmount);

        UpdateVerticalScrollBar(True);
      end
      else
      begin
        // ...else scroll horizontally if there's something to scroll.
        if UseRightToLeftAlignment then
          RTLFactor := -1
        else
          RTLFactor := 1;

        if ssCtrl in ShiftState then
          ScrollAmount := Trunc(WheelFactor * (ClientWidth {- FHeader.Columns.GetVisibleFixedWidth}))
        else
        begin
          SystemParametersInfo(SPI_GETWHEELSCROLLLINES, 0, @ScrollLines, 0);
          if ScrollLines = WHEEL_PAGESCROLL then
            ScrollAmount := Trunc(WheelFactor * (ClientWidth {- FHeader.Columns.GetVisibleFixedWidth}))
          else
            ScrollAmount := Trunc(WheelFactor * ScrollLines * FColWidth / 10{FHeader.Columns.GetScrollWidth});
        end;
        SetOffsetX(FOffsetX + RTLFactor * ScrollAmount);
      end;
    end;

  end;

end;