[gelöst]richmemo scroll

[atroesch]

ich habe ein richmemo, auf readonly, scrollbars ssnone.
der inhalt kann mit dem mausrad nicht gescrollt werden, wegen ssnone.
mit den tasten pfeil runter pfeil rauf geht es.
dachte dann schick ich halt bei mausrad scroll die entsprechenden tasten
per

Code: Alles auswählen

PostMessage(Memo.Handle, WM_KEYDOWN, VK_NEXT, 0);     

geht auch, wenn ich onmousewheeldown der Form benutze.
aber nur wenn sich der Mauszeiger ausserhalb des memo befindet.
sobald ich die maus innerhalb des memos habe geht es nicht mehr.
Wenn ich die Postmessage im onmousewheeldown des memos verwende
scrollt er nur eine seite runter und danach geht es auch nicht mehr.
jemand eine idee?

[atroesch]

hab es gefunden..

Code: Alles auswählen

procedure MainForm.RichMemoMouseWheel(Sender: TObject;
  Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
  var Handled : Boolean);
var key : word;
begin
 if (WheelDelta > 0) then
  key:=VK_Prior
 else
  Key:=VK_Next;
 Handled:=True;
 PostMessage(RichMemo.Handle, WM_KEYDOWN, Key, 0);
end;