Forum: Win32/Win64 API (native code)
by toms,
6. Sep 2010
So scrollt es nach meinem Empfinden genau so "smooth":
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if Msg.message = WM_MOUSEWHEEL then
begin
Handled := True;
SendMessage(RichEdit1.Handle, WM_MOUSEWHEEL, Msg.wParam, Msg.lParam);
end;
Forum: Win32/Win64 API (native code)
by toms,
6. Sep 2010
Hallo,
Warum verwendest du nicht einfach das OnMouseWheel der Form und scrollst das RichEdit, wenn es nicht den Focus besitzt?
procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
with RichEdit1 do
if not Focused then
begin