Добавление события OnMouseLeave

Code:

procedure CMMouseEnter(var msg:TMessage); message CM_MOUSEENTER;

procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;

..

..

..

procedure MyComponent.CMMouseEnter(var msg:TMessage);

begin

inherited;

{действия на вход мыши в область компонента}

end;

procedure MyComponent.CMMouseLeave(var msg: TMessage);

begin

inherited;

{действия на покидание мыши области компонента}

end;