谢谢

解决方案 »

  1.   

    onmousemove 
    hittest
    setcapture
      

  2.   

    zhuan:先覆盖一个消息方法procedure CMMouseLeave(var Msg: Tmessage);message CM_MouseLeave;
    然后在消息方法里这么写:procedure TForm1.CMMouseLeave(var Msg: TMessage);
    var Obj: TObject;
    begin
      Obj := TObject(Msg.LParam);
      if Assigned(Obj) and (Obj is TChart) then
        //do something
      else
        inherited;
    end;
      

  3.   

    SetCaptureControl( TreeView1 );
        //判断是不是在这个范围内,自己改一下
        if not InRange(x, TreeView1.Left, TreeView1.Left + TreeView1.Width ) then
        begin
            SetCaptureControl( nil );
        end;    if( GetCaptureControl <> nil ) then
            Debugoutput( GetCaptureControl.Name );