扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:潇潇 来源:天极网 2007年10月31日
关键字: Delphi Windows API 编程
{ Message structure } PMsg = ^TMsg ; tagMSG = packed record hwnd : HWND ; message : UINT ; wParam : WPARAM ; lParam : LPARAM ; time : DWORD ; pt : TPoint ; end ; { $ EXTERNALSYM tagMSG } TMsg = tagMSG ; MSG = tagMSG ; { $ EXTERNALSYM MSG } |
const { $ EXTERNALSYM WM_NULL } WM_NULL = $0000 ; { $ EXTERNALSYM WM_CREATE } WM_CREATE = $0001 ; { $ EXTERNALSYM WM_DESTROY } WM_DESTROY = $0002 ; { $ EXTERNALSYM WM_MOVE } WM_MOVE = $0003 ; { $ EXTERNALSYM WM_SIZE } WM_SIZE = $0005 ; …… …… WM_APP = $8000 ; { NOTE : All Message Numbers below 0x0400 are RESERVED } { Private Window Messages Start Here } { $ EXTERNALSYM WM_USER } WM_USER = $0400 ; …… …… { Dialog messages } { $ EXTERNALSYM DM_GETDEFID } DM_GETDEFID = ( WM_USER+0 ) ; { $ EXTERNALSYM DM_SETDEFID } DM_SETDEFID = ( WM_USER+1 ) ; { $ EXTERNALSYM DM_REPOSITION } DM_REPOSITION = ( WM_USER+2 ) ; { $ EXTERNALSYM PSM_PAGEINFO } PSM_PAGEINFO = ( WM_USER+100 ) ; { $ EXTERNALSYM PSM_SHEETINFO } PSM_SHEETINFO = ( WM_USER+101 ) ; { Button Notification Codes } …… …… |
function Tapplication . ProcessMessage ( var Msg : TMsg ) : Boolean; var Handled : Boolean ; begin Result : = False ; if PeekMessage ( Msg , 0 , 0 , 0 , PM_REMOVE ) then begin Result : = True ; if Msg.Message <> WM_QUIT then begin Handled := False ; if Assigned ( FonMessage ) then FonMessage ( Msg , Handled ) ; if not IsHintMsg ( Msg ) and not Handled and not IsMDIMsg ( Msg ) and not IsKeyMsg ( Msg ) and not IsDlgMsg ( Msg ) then begin TranslateMessage ( Msg ) ; DispatchMessage ( Msg ) ; end ; end ; else FTerminate : = True ; end ; end ; |
if PeekMessage ( Msg , 0 , 0 , 0 , PM_REMOVE ) then begin TranslateMessage ( Msg ) ; DispatchMessage ( Msg ) ; end ; |
while GetMessage ( Msg , 0 , 0 , 0 ) do begin TranslateMessage ( Msg ) ; DispatchMessage ( Msg ) ; End ; |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。
现场直击|2021世界人工智能大会
直击5G创新地带,就在2021MWC上海
5G已至 转型当时——服务提供商如何把握转型的绝佳时机
寻找自己的Flag
华为开发者大会2020(Cloud)- 科技行者