怎样实现鼠标移出窗口范围时，窗口自动隐藏？

Question

如题

Answer 1

我这里有段类似的代码，你看看，修改一下：
能实现当mouse 不在该区域时把字再变回去，代码如下：
unit testu;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, StdCtrls;type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TMyLabel=class(Tlabel)
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;  end;
var
  Form1: TForm1;implementation
var
  ml:TMylabel=nil;
  min:boolean=false;
{$R *.DFM}
procedure TMyLabel.CMMouseEnter(var Message: TMessage);
begin
    inherited;
    if not min then
    begin
      font.Style :=font.style+[fsUnderline];
      min:=true;
    Repaint;
    end;
end;
procedure TMyLabel.CMMouseLeave(var Message: TMessage);
begin
    inherited;
    if min then
    begin
      font.Style :=font.style-[fsUnderline];
      min:=false;
    Invalidate;
    end;
end;procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  if ml<>nil then exit;
  ml:=tmylabel.Create(self);
  ml.parent:=form1;
  ml.left:=50;
  ml.top:=50;
  ml.width:=50;
  ml.height:=50;
  ml.caption:='abcdefghijklmnopqrstuvwxyz';
  ml.show;
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
  if ml<>nil then ml.free;
end;end.

Answer 2

在CM_MOUSELEAVE这个消息里处理。

Answer 3

收藏。好像网上有一个这样的控件，我以前看到过DEMO，但是不晓得在哪里有下。

Answer 4

GetCursorPos(P);
  P := ScreenToClient(P);

Answer 5

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Point : TPoint;
  FrmRect : TRect;
begin
  GetCursorPos(Point);
  FrmRect.TopLeft := ClientToScreen(Self.GetClientRect().TopLeft);
  FrmRect.BottomRight := ClientToScreen(Self.GetClientRect().BottomRight);
  if not PtInRect(FrmRect,Point) then
  begin
    Self.Hide;
    Self.Timer1.Enabled := false;
  end;
end;

Answer 6

type
TForm1 = class(TForm)     procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    FbMouseOn : boolean;
  public
    { Public declarations }
     procedure WMMouseLeave(var Message: TMessage); message WM_MOUSELEAVE;
  end;--------------------
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  tme : tagTrackMouseEvent;
begin
  if not FbMouseOn then
  begin
    FbMouseOn := true;
    tme.cbSize := sizeof(tme);
    tme.dwFlags := TME_LEAVE;//这里决定是否发送鼠标离开窗体的消息WM_MOUSELEAVE
    tme.hwndTrack := self.Handle;
    TrackMouseEvent(tme);
  end;
end;procedure TForm1.WMMouseLeave(var Message: TMessage);
begin
 self.Hide ;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  FbMouseOn := false;
end;