Всем привет
Есть графический компонент, изображающий круглую кнопку. Нужно добиться того, чтобы он реагировал на такие события, как: 1) нажатие левой кнопки мыши, 2) отпускание той же кнопки, 3) наведение и 4) снятие указателя.
Код:
procedure DoMouseOver(var Msg: TWMMouse); message WM_MOUSEMOVE;
procedure DoMouseLeft(var Msg: TWMMouse); message WM_MOUSELEAVE;
procedure DoMouseDown(var Msg: TWMMouse); message WM_LBUTTONDOWN;
procedure DoMouseUp(var Msg: TWMMouse); message WM_LBUTTONUP;
В процедуре DoMouseLeft проверяется, находится ли указатель мыши в пределах окружности - контура кнопки:
Код:
if ((sqrt(sqr(Width div 2 - Msg.XPos) + sqr(Height div 2 - Msg.YPos))) <= Width div 2) then
{... указатель находится в пределах контура}
else
{... "притворяемся", что указатель не наведён на кнопку}
При тестировании программы обнаружил, что кнопка вообще не реагирует на сообщение WM_MOUSELEAVE,
ЗАТО прекрасно слушается сообщения WM_MOUSEMOVE, когда указатель мыши выходит за пределы круга, обозначающего кнопку.
В чём может быть дело? Подскажите, пожалуйста, в чём моя ошибка. Заранее благодарен за Ваше внимание