RichText und Scrollen mit Mausrad

[haentschman]

Moin...

Klarstellung: Es hat nichts mit D12 zu tun.

Im Video (Scroll.zip) ist zu sehen, dass das Mausrad auf das Layout Control reagiert und nicht auf das Control mit dem Focus. Wenn das Layout Control so groß ist, das kein Scrollbalken erscheint, scrollt auch das RTF Feld.

Wie bekomme ich die Message an das Active RTF weitergeleitet? ...ich kann damit leben das Layout Control nicht mehr scrollt.

Danke...

Ausprobiert:
Wenn das Active Control ein RichEdit ist, dann wird das Scrollen des Layouts unterbunden. Soweit ok. Aber das Senden an das RichEdit funtioniert nicht...

Delphi-Quellcode:

procedure TfoReceipt.dxLayoutMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  inherited;
  if Self.ActiveControl is TCustomRichEdit then
  begin
    Handled := True;
    SendMessage(Self.ActiveControl.Handle, CM_MOUSEWHEEL, WheelDelta, 0); // -> scrollt nicht
  end;
end;

...wo ist der Fehler?

PS: Ich habe gefühlt alle Varianten, auch mit Perform, mit verschiedenen Parameter Konstellationen durch.