RichText und Scrollen mit Mausrad

[haentschman]

Moin...

Heureka...ich habs...mit Hilfe. (jaenicke)

Delphi-Quellcode:

procedure TfrRTFBase.edtRTFMouseWheelDown(Sender: TObject; Shift: TShiftState;  MousePos: TPoint; var Handled: Boolean); // #1462
const
  EM_GETSCROLLPOS = $04DD;
  EM_SETSCROLLPOS = $04DE;
var
  ScrollPos: TPoint;
begin
  Handled := True;
  if GetWindowLong(edtRTF.Handle, GWL_STYLE) = conScrollbarVisible then
  begin
    edtRTF.Perform(EM_GETSCROLLPOS, 0, @ScrollPos);
    ScrollPos.Offset(0, 50);
    edtRTF.Perform(EM_SETSCROLLPOS, 0, @ScrollPos);
  end;
end;

procedure TfrRTFBase.edtRTFMouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); // #1462
const
  EM_GETSCROLLPOS = $04DD;
  EM_SETSCROLLPOS = $04DE;
var
  ScrollPos: TPoint;
begin
  Handled := True;
  if GetWindowLong(edtRTF.Handle, GWL_STYLE) = conScrollbarVisible then
  begin
    edtRTF.Perform(EM_GETSCROLLPOS, 0, @ScrollPos);
    ScrollPos.Offset(0, -50);
    edtRTF.Perform(EM_SETSCROLLPOS, 0, @ScrollPos);
  end;
end;

siehe Video

Danke.