TMessage 消息结构
PMessage = ^TMessage;
TMessage =packedrecord
Msg: Cardinal;
case Integer of
0: ( WParam: WPARAM; LParam: LPARAM; Result: LRESULT);
1: ( WParamLo: Word; WParamHi: Word; LParamLo: Word; LParamHi: Word; ResultLo: Word; ResultHi: Word);
end;
消息定义
procedure MyMsg(var Msg: TMessage); message WM_USER + 1000;//用户消息上加
begin
case Msg.WParam of
end;
if (Msg.LParam mod 2)=0 then
begin
end;
end;
消息发送
function SendMessage( hWnd: HWND;Msg: UINT;wParam: WPARAM;lParam: LPARAM): LRESULT;stdcall;
//目标窗口句柄 定义的消息编码 参数一 参数二 返回值
function PostMessage( hWnd: HWND;Msg: UINT;wParam: WPARAM;lParam: LPARAM): BOOL;stdcall;
//返回值表示：是否发送成功
SendMessage(Self.Handle, WM_USER + 1000,1,10);// 发送消息后会等待处理结果
PostMessage(Self.Handle, WM_USER + 1000,1,10);//把消息送入消息队列.不等待结果
