c++ builder里四种处理“鼠标离开窗体”事件的方法 转

     c++ builder里四种处理“鼠标离开窗体”事件的方法     转  
关键字     鼠标,窗体,消息 
  


       在处理窗体消息的时候,我想不少人都会碰到鼠标离开窗体的消息(下面称之为
MouseLeave)。在C++ Builder里,并没有直接提供处理这种消息的方法,需要我们自己动
手来做。通过参考一些资料,我发现在C++ Builder里面处理MouseLeave,不外乎以下四种
方法,现写出来供大家参考。如果有什么不对之处,请指正。

(一)、笨拙的Timer

       每每提到捕捉鼠标离开窗体的消息的时候,也许有人就会马上想到用Timer来处理。
不错,这种方法很简单,也确实有效。只须在Timer的OnTimer事件中判断鼠标所处位置的坐
标是否在窗体内就可以了,详细代码如下:

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
        POINT pt;
        GetCursorPos(&pt);                   //得到鼠标的坐标
        RECT rect;
        GetWindowRect(Handle,&rect);  //得到窗体的矩形范围
        if(!PtInRect(rect,pt))                 //判断鼠标的坐标是否在窗体的矩形范围内

                Caption="out";
        else
                Caption="in";
}

       为什么我要说是笨拙的Timer呢?原因有二:其一、OnTimer是优先级别比较低的消
息,从严格意义上讲,上面这种做法并不精准。如果系统正在处理一大堆级别比较高的消息
,那我们就无法及时获得MouseLeave消息。其二、Timer是比较宝贵的系统资源,用在
MouseLeave上面似乎有些浪费了,因为我们还有更好的方法来做同样的事情。

(二)、霸道的SetCapture()

        SetCapture()可以让指定的窗体捕获所有鼠标消息,当然也包括MouseLeave了:

void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
                Caption="in";
                SetCapture(Handle);
                TPoint pt(X,Y);
                TRect rect;
                rect=GetClientRect();
                if (!PtInRect(rect,pt))
                {
                        ReleaseCapture();
                        Caption="out";
                }
}

       不过这种方法太过于霸道了,因为SetCapture()将所有的鼠标消息据为己有。虽然
在捕获了MouseLeave以后已经ReleaseCapture了,但是在捕获过程中,你却无法对其他的
鼠标消息做出反应。不信?你不妨在窗体在多放一个Button控件,再运行点点看?:)

(三)、受限的TrackMouseEvent()

       MSDN上面说,TrackMouseEvent()可以让指定的窗体接受WM_MOUSELEAVE消息。但是
在接受消息以后如果还要继续接受WM_MOUSELEAVE消息,必须重新调用TrackMouseEvent():

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        MouseTrack=false;   //TForm1的私有变量,检测鼠标是否已经被Track
}
//---------------------------------------------------------------------------
void __fastcall TForm1::WndProc(TMessage& Message)          //重载WndProc
{
        if (Message.Msg==WM_MOUSELEAVE)   //在这里捕获WM_MOUSELEAVE消息
        {
                Caption="out";
                MouseTrack=false;      //鼠标Track已经完成
        }
        TForm::WndProc(Message);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
        Caption="in";
        if (!MouseTrack)
        {
                TRACKMOUSEEVENT tt;
                tt.cbSize=sizeof(tt);
                tt.dwFlags=TME_LEAVE;
                tt.hwndTrack=Handle;
                TrackMouseEvent(&tt);
                MouseTrack=true;                  //开始鼠标Track
        }
}
//---------------------------------------------------------------------------

       这种方法很好用,唯一的缺点是可能不支持Win98(具体支不支持我也没有做过实
验,哪位兄弟有Win98的帮我测试一下)。在Win2000的环境下,我推荐用这种方法,:)

(四)、未知的CM_MOUSELEAVE

       在CSDN论坛里经常看到有人说可以通过捕获CM_MOUSELEAVE消息来达到同样的效果。不过根据我的
测试,CM_MOUSELEAVE在控件上面工作得很好,可以用来捕获鼠标离开控件的消息。但用在
窗体上似乎就不灵验了,可能我自己没有做对吧。如果有哪位大虾知道该怎么用,请告知小
弟一声,我将感激不尽。

以上代码均在Win2k Professional+bcb6.0环境中编译成功。
----------------------------------------------
我试验的结果是,在98也支持TrackMouseEvent的.我好几个程序都用了这个方法.
另外,有时我也在计时器中使用GetCursorPos来判断当前鼠标所在窗体,代码为:
var
  ItemPoint: TPoint;
  hwCursor: LongWord;
begin
  GetCursorPos(ItemPoint);
  hwCursor := WindowFromPoint(ItemPoint);
  if (hwCursor = 句柄) then .....;
end;
----------------------------------------------
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
    bMouseTrack:Boolean;
    procedure WndProc(var Msg:TMessage);override;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  bMouseTrack:=false;
end;

procedure TForm1.WndProc(var Msg: TMessage);
begin
  if (Msg.Msg=WM_MOUSELEAVE) then  //在这里捕获WM_MOUSELEAVE消息
    begin
      Label1.Caption:='out';
      bMouseTrack:=false;      //鼠标Track已经完成
    end;
  inherited;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  tt:TagTRACKMOUSEEVENT;
begin
  Label1.Caption:='in';
  if not bMouseTrack then
     begin
        tt.cbSize:=sizeof(tt);
        tt.dwFlags:=TME_LEAVE;
        tt.hwndTrack:=Handle;
        TrackMouseEvent(tt);
        bMouseTrack:=true;          //开始鼠标Track
     end;
end;

end.

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值