鼠标移动的问题（UP有分！）

鼠标移动的问题：
1。如何判断鼠标在点中左键的情况下从一个form移动到另外的一个form
2。如何在1的情况下让停止form获得焦点谢谢大家！！！

解决方案 »

  1.   

    Form的 OnDeactivate 事件不能实现你的要求吗？
      

  2.   

    1、用FormDockDrop(Sender: TObject; Source: TDragDockObject;
      X, Y: Integer);
        FormDockOver(Sender: TObject; Source: TDragDockObject;
      X, Y: Integer; State: TDragState; var Accept: Boolean);以及FormKeyPress事件判断鼠标在点中左键结合可以实现此功能2、根据第一点你可以让任何一个获得或失去焦点
      

  3.   

    这很简单，又要设置一个全局变量，标识鼠标是否一直单击
    在form的鼠标移动消息中，判断这个变量，同时在OnDeactivate这个消息中判断鼠标离开时候是否左键按下，同时标识这个全局的标识位，另外一个船体也是这样设置就可以了