关于Application.OnMessage中msg的问题

Question

如何在Application.OnMessage判断键盘按住Shift键的同时鼠标又点击右键呢？即：
 Application.OnMessage := appMsg ;  procedure appmsg(var msg: TMsg;var Handled: boolean) ;
  begin
     if msg=       then       //这边怎么判断？？？？？  end;

Answer 1

用 msg.msg=WM_RBUTTONDOWN 判断是否按下了鼠标右钮；
用 GetKeyState(VK_SHIFT)<0 判断是否按下了shift键。

Answer 2

if (Msg.message=WM_CLOSE) then //判断是窗口关闭以下代码供参考:
procedure TForm1.ApplicationEventsMessage(var Msg: tagMSG;var Handled: Boolean);
begin
  if (Msg.message=WM_CLOSE) then
  begin
    if  Msg.hwnd= WB1.Handle then
    begin
      Handled:=True;
      WB1.Navigate('');
    end;
  end;
end;

Answer 3

>>if msg=       then       //这边怎么判断？？？？？要响应什么消息,就写什么条件,消息的代码,在message单元中查