RichText und Scrollen mit Mausrad

[jaenicke]

Zitat von haentschman:

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.

Wie wäre es so?

Delphi-Quellcode:

const
  EM_GETSCROLLPOS = $04DD;
  EM_SETSCROLLPOS = $04DE;
var
  ScrollPos: TPoint;
begin
  RichEdit1.Perform(EM_GETSCROLLPOS, 0, @ScrollPos);
  ScrollPos.Offset(0, 50);
  RichEdit1.Perform(EM_SETSCROLLPOS, 0, @ScrollPos);
end;