Mega Code Archive
[] Memo içinde mouse scroll düğmesini kullanma [metni tekerlekle kaydırma]
<![CDATA[
// 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;
]]>