Как отловить наведение курсора на форму?

[Marsel737]

Всем доброго времени суток. Вопрос в вопросе, знаю что избитый, но не могу найти решение. Хочу сделть через

message  WM_MOUSEMOVE;

но не могу вспомнить как нада

[DomiNick]

Эм... Ну.....
Пришло сообщение WM_MOUSEMOVE - значить навели мышкой на окно...
Или в "вопросе в вопросе" подвох какой?

[Marsel737]

Нет никакого подвоха, я просто не помню как писать

procedure ...(...) message WM_MOUSEMOVE;

я только и помню

message WM_MOUSEMOVE

[DIgorevich]

м-м.. не это случайно? http://www.delphiworld.narod.ru/base...over_form.html

[Marsel737]

Да нет, там попроще. Я где то здесь на форуме видел, а теперь никак найти не могу

[DIgorevich]

Вы хоть поведение опишите, чтобы знать, что искать-то...

[Marsel737]

там одна процедура такого вида:

procedure ...(...: TMessage); message  WM_MOUSEMOVE; WM_MOUSELEAVE;
begin
  И тут типа если курсор наведён, то, иначе это
end;

[DIgorevich]

OnMоuseEnter, что-ли?

[Marsel737]

Может быть, смысл в том, чтобы отловить наведение курсора на форму максимально просто. Там всего пара строк кода

[DIgorevich]

Ну про пару строк не слыхал именно о форме. Есть сторонние компоненты, у которых есть событие OnMоuseEnter. А для основной формы придется писать обработчик.

Вот в PUBLIC прописывайте и CTR+Shift+C:

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