Как отследить выход мыши за пределы формы? |
Previous Top Next |
Можно через события OnMouseEnter/OnMouseLeave:
Code: |
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.
©Drkb::01574
Взято с сайта http://blackman.wp-club.net/