Событие для снятия выделения с самодельного компонента

[qivi]

Написал самодельный компонент наследник TCustomControl, который реагирует на наведение мышки для чего использованы события OnMouseEnter, OnMouseLeave. Но при этом есть один не хороший момент. Если курсор навести на контрол, а потом резко отвести в сторону так, что бы он ушёл за пределы формы на которой находится контрол, то контрол останется выделенным пока курсор не вернётся на форму.

Каким событием можно обработать эту ситуацию?

[wavebvg]

Ловить глобальное событие потери фокуса приложением

[qivi]

wavebvg, подскажи пожалуйста как это примерно выглядит?

[wavebvg]

Для формы:

Код: Выделить всё

procedure WMKILLMessage(var AMsg: TWMKillFocus); message WM_KILLFOCUS;

Если не поможет - решать вопрос с самим контролом - потому что нужное событие до контрола точно доходить должно