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

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

 

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;

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить