1 procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
 2   var Handled: Boolean);
 3 begin
 4   //在RzMemo1上发生鼠标滚轮事件时
 5   if (RzMemo1.Focused) and (Msg.message = WM_MOUSEWHEEL) then
 6   begin
 7     if Msg.wParam > 0 then //上滚
 8     begin
 9       RzMemo1.Lines.Add('上滚+1 - ' + FormatDateTime('YYYY-MM-DD hh:mm:ss zzz', Now()));
10     end
11     else //下滚
12     begin
13       RzMemo1.Lines.Add('下滚-1 - ' + FormatDateTime('YYYY-MM-DD hh:mm:ss zzz', Now()));
14     end;
15     Handled := True; //消息已经处理完毕
16   end;
17 end;