ApplicationEvent,
if(右键) then
   cancel...

解决方案 »

  1.   

    在窗体上添加一TApplicationEvents对象,在其OnMessage事件中写
    procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
      var Handled: Boolean);
    begin
      if (Msg.message=WM_RBUTTONDOWN) or (Msg.message=WM_RBUTTONDBLCLK) or (Msg.message=WM_KEYDOWN) then
        Msg.message:=WM_NULL;
    end;
      

  2.   

    十分感谢li_zhifu(也谢谢ganr,只是小弟资质驽钝没有领会你的意思,
    在这里口头感谢了)