{"rsdb":{"rid":"353122","subhead":"","postdate":"0","aid":"250528","fid":"86","uid":"1","topic":"1","content":"
\n

Delphi\u5b9e\u73b0\u5bf9\u9f20\u6807\u4e0a\u4e0b\u6eda\u52a8\u57fa\u7840\u6d88\u606f\u7684\u622a\u83b7\u5e76\u5904\u7406<\/p> \n

\u524d\u51e0\u5929\u6709\u5ba2\u6237\u63d0\u51fa\u9700\u6c42\uff1a\u7531\u4e8e\u4e2a\u4ebaPC\u754c\u9762\u9650\u5236\uff0c\u6709\u65f6\u5019\u7535\u5b50\u56fe\u6863\u663e\u793a\u4e0d\u5168\uff0c\u5e0c\u671b\u901a\u8fc7\u9f20\u6807\u4e0a\u4e0b\u6eda\u52a8\u7528\u6765\u63a7\u5236\u7535\u5b50\u56fe\u6863\u7684\u653e\u5927\u548c\u7f29\u5c0f\u3002<\/p> \n

\u4e0b\u9762\u901a\u8fc7\u4e00\u4e2a\u6d4b\u8bd5Demo\u6765\u8bf4\u660e\u4e00\u4e0b\u3002<\/p> \n

\u65b0\u5efa\u4e00\u4e2aWinFrm\u5e94\u7528\u7a0b\u5e8f\uff0c\u6dfb\u52a0\u4e00\u4e2aRzMemo\u3001ApplicationEvents\u63a7\u4ef6\uff0c\u5982\u4e0b\u6240\u793a\u3002<\/p> \n

\"\"<\/p> \n

 <\/p> \n

\u6dfb\u52a0ApplicationEvents\u63a7\u4ef6\u7684OnMessage\u4e8b\u4ef6\uff0c\u5173\u952e\u4ee3\u7801\u5982\u4e0b\uff1a<\/p> \n

\n 
 1<\/span> procedure<\/span> TForm1.ApplicationEvents1Message(var<\/span> Msg: tagMSG;\r\n<\/span> 2<\/span>   var<\/span> Handled: Boolean);\r\n<\/span> 3<\/span> begin<\/span>\r\n 4<\/span>   \/\/<\/span>\u5728RzMemo1\u4e0a\u53d1\u751f\u9f20\u6807\u6eda\u8f6e\u4e8b\u4ef6\u65f6<\/span>\r\n 5<\/span>   if<\/span> (RzMemo1.Focused) and<\/span> (Msg.message<\/span> = WM_MOUSEWHEEL) then<\/span>\r\n 6<\/span>   begin<\/span>\r\n 7<\/span>     if<\/span> Msg.wParam > 0<\/span> then<\/span> \/\/<\/span>\u4e0a\u6eda<\/span>\r\n 8<\/span>     begin<\/span>\r\n 9<\/span>       RzMemo1.Lines.Add('<\/span>\u4e0a\u6eda+1 - <\/span>'<\/span> + FormatDateTime('<\/span>YYYY-MM-DD hh:mm:ss zzz<\/span>'<\/span>, Now()));\r\n<\/span>10<\/span>     end<\/span>\r\n11<\/span>     else<\/span> \/\/<\/span>\u4e0b\u6eda<\/span>\r\n12<\/span>     begin<\/span>\r\n13<\/span>       RzMemo1.Lines.Add('<\/span>\u4e0b\u6eda-1 - <\/span>'<\/span> + FormatDateTime('<\/span>YYYY-MM-DD hh:mm:ss zzz<\/span>'<\/span>, Now()));\r\n<\/span>14<\/span>     end<\/span>;\r\n<\/span>15<\/span>     Handled := True; \/\/<\/span>\u6d88\u606f\u5df2\u7ecf\u5904\u7406\u5b8c\u6bd5<\/span>\r\n16<\/span>   end<\/span>;\r\n<\/span>17<\/span> end<\/span>;<\/pre> \n <\/div> \n 
\u8fd0\u884c\u6548\u679c\u5982\u4e0b\uff0c\u5f53\u9f20\u6807\u4e0a\u4e0b\u6eda\u52a8\u65f6\u89e6\u53d1\u76f8\u5173\u6d88\u606f\uff1a<\/p> \n 
\"\" <\/p> \n 
\u7efc\u4e0a\uff0c\u6211\u4eec\u5c31\u53ef\u4ee5\u5728\u4e24\u4e2a\u5173\u952e\u5224\u65ad\u5904\uff0c\u6dfb\u52a0\u81ea\u5df1\u60f3\u8981\u5b9e\u73b0\u7684\u4e1a\u52a1\u903b\u8f91\uff0c\u4ece\u800c\u5b9e\u73b0\u5bf9\u9f20\u6807\u4e0a\u4e0b\u6eda\u52a8\u57fa\u7840\u6d88\u606f\u7684\u622a\u83b7\u548c\u4e8c\u6b21\u5904\u7406\u3002<\/p> \n 
 <\/p> \n<\/div>","orderid":"0","title":"Delphi - \u9f20\u6807\u4e0a\u4e0b\u6eda\u52a8\u57fa\u7840\u6d88\u606f\u4e8b\u4ef6","smalltitle":"","mid":"0","fname":"Delphi","special_id":"0","bak_id":"0","info":"0","hits":"213","pages":"1","comments":"0","posttime":"2019-09-14 00:54:03","list":"1568393643","username":"admin","author":"","copyfrom":"","copyfromurl":"","titlecolor":"","fonttype":"0","titleicon":"0","picurl":"https:\/\/www.cppentry.com\/upload_files\/","ispic":"0","yz":"1","yzer":"","yztime":"0","levels":"0","levelstime":"0","keywords":"Delphi<\/A> \u9f20\u6807<\/A> \u4e0a\u4e0b<\/A> \u6eda\u52a8<\/A> \u57fa\u7840<\/A> \u6d88\u606f<\/A> \u4e8b\u4ef6<\/A>","jumpurl":"","iframeurl":"","style":"","template":"a:3:{s:4:\"head\";s:0:\"\";s:4:\"foot\";s:0:\"\";s:8:\"bencandy\";s:0:\"\";}","target":"0","ip":"120.229.33.113","lastfid":"0","money":"0","buyuser":"","passwd":"","allowdown":"","allowview":"","editer":"","edittime":"0","begintime":"0","endtime":"0","description":"Delphi - \u9f20\u6807\u4e0a\u4e0b\u6eda\u52a8\u57fa\u7840\u6d88\u606f\u4e8b\u4ef6","lastview":"1713849277","digg_num":"0","digg_time":"0","forbidcomment":"0","ifvote":"0","heart":"","htmlname":"","city_id":"0"},"page":"1"}