Как отследить выход мыши за пределы формы?

Материал из DRKB

Как отследить выход мыши за пределы формы?[править | править код]

Можно через события OnMouseEnter/OnMouseLeave:

  TYourObject = class(TAnyControl)
  private
    FMouseInPos: Boolean;
    procedure CMMouseEnter(var AMsg: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var AMsg: TMessage); message CM_MOUSELEAVE;
  end;

implementation

procedure TYourObject.CMMouseEnter(var AMsg: TMessage);
begin
  FMouseInPos := True;
  Refresh;
end;

procedure TYourObject.CMMouseLeave(var AMsg: TMessage);
begin
  FMouseInPos := False;
  Refresh;
end;

Затем считывать параметр FMouseInPos.


Source: Взято с сайта http://blackman.wp-club.net/
ID: 01574