摘要: program delphi; useswindows,messages;consthellostr='Hello World!';{$R delphi.res}//窗口消息处理函数.function MyWinProc(hWnd:THandle;uMsg:UINT;wParam,lParam:Cardinal):Cardinal;stdcall;var hdca,hdcb:THandle; //... 阅读全文
posted @ 2010-06-10 10:48 huhu0013 阅读(1761) 评论(0) 推荐(0)
摘要: 假设你的消息这样定义: Const WM_YOURMSG=WM_USER+100; 你的过程定义可以这样: procedure YourProc(var MSG:TMessage);message WM_YOURMSG; 这样,当你的窗口收到该消息时,将调用这个过程。 例如: unit Unit1; interface uses Windows, Messages, SysUtils,... 阅读全文
posted @ 2010-06-10 08:58 huhu0013 阅读(2944) 评论(0) 推荐(0)