// ben dbMemo kullanarak yaptım. memoda farklı olabilir....
procedure TAnaForm.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
case WheelDelta of
120:
begin
SendMessage(MEMO.Handle,WM_VSCROLL,SB_LINEUP,0);
SendMessage(MEMO.Handle,WM_VSCROLL,SB_LINEUP,0);
end;
-120:
begin
SendMessage(MEMO.Handle,WM_VSCROLL,SB_LINEDOWN,0);
SendMessage(MEMO.Handle,WM_VSCROLL,SB_LINEDOWN,0);
end;
240:
begin
SendMessage(MEMO.Handle,WM_VSCROLL,SB_LINEUP,0);
SendMessage(MEMO.Handle,WM_VSCROLL,SB_LINEUP,0);
end;
-240:
begin
SendMessage(MEMO.Handle,WM_VSCROLL,SB_LINEDOWN,0);
SendMessage(MEMO.Handle,WM_VSCROLL,SB_LINEDOWN,0);
end;
end;
end;