L
lqquan34168
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.message = WM_RBUTTONDOWN) or (Msg.message = WM_LBUTTONDOWN) or Msg.message = WM_MOUSEMOVE) then
begin
showmessage("按下键盘和鼠标时，这样扑捉消息时成功的！"
;
end;
//if (Msg.message = WM_MOVE) or (Msg.message = WM_SIZE) then
//begin
//showmessage("这样扑捉窗体的移动和改变大小消息不成功！"
//end;
end;
以上代码注释的代码处是我想要的功能，但是捕捉不到，还有在这个事件也不知怎么捕捉单击主菜单的消息，把它拦截下来屏蔽掉。做自己要做的事。
或者这样，怎么捕捉一个应用程序中所有窗体WndProc里面有消息，做自己要做的事。
var Handled: Boolean);
begin
if (Msg.message = WM_RBUTTONDOWN) or (Msg.message = WM_LBUTTONDOWN) or Msg.message = WM_MOUSEMOVE) then
begin
showmessage("按下键盘和鼠标时，这样扑捉消息时成功的！"
;end;
//if (Msg.message = WM_MOVE) or (Msg.message = WM_SIZE) then
//begin
//showmessage("这样扑捉窗体的移动和改变大小消息不成功！"
;//end;
end;
以上代码注释的代码处是我想要的功能，但是捕捉不到，还有在这个事件也不知怎么捕捉单击主菜单的消息，把它拦截下来屏蔽掉。做自己要做的事。
或者这样，怎么捕捉一个应用程序中所有窗体WndProc里面有消息，做自己要做的事。