怎样才能在程序中判断shift键和鼠标左键被一起按下？

如题

解决方案 »

  1.   

    OnKeyPress时if ((ssShift in Shift) and (Key = VK_LMOUSE)) then
      ...
      

  2.   

    错了,应该是OnMouseDownif (ssShift in Shift) and (Button = mbLeft) then showmessage('');
      

  3.   

    我想用属标单击的控件是DBGRID，它没有onmousedown事件，怎么办呢？
      

  4.   

    拦截消息
    http://expert.csdn.net/Expert/topic/1253/1253736.xml
    http://expert.csdn.net/Expert/topic/1236/1236355.xml
      

  5.   

    我用的是delphi3，没有这个事件，可能是版本太低了
      

  6.   

    我只能用DELPHI3，因为我们做项目没买高版本的，用以前的。