Покидание пределов формы

[Alex Cones]

Представим себе ситуацию - у нас есть форма 50х50 без бордера. На OnMove у нас сделано так, что Form.Color := $FF0000; Нужно сделать так, чтобы по выходу курсора из формы цвет менялся на, скажем $00FF00;.

Кроме таймера есть варианты?

[_SERGEYX_]

Есть. Хук на мышь.

[Alex Cones]

Хук на мышь.

Это как бомбардировка сельского туалета с помощью BlackBird.

А сообщений такого типа нет?

[majikku]

может с этим что нить сэмпровизировать получиться :D
http://delphiexpert.ru/view_lesson.php?id=74

-----------
кто минус поставил Т.т
я текст просто не тот написал, а удалять сообщение нельзя
вот и исправил , чтоб потом норм текст вставить когда ссылку найду
ехъ...

[_SERGEYX_]

По теме. Я бы сделал так:
Берем нормальную панель, у которой есть свойства OnMouseEnter и OnMouseExit.
(таких полно... перечислять не буду). Растягиваем эту панель на всю форму (чтобы надежней было при быстром перемещении мыши можно оставить по краям по 1-2 пикселя.) и обрабатываем вышеуказанные события.

Можно, конечно, сделать так

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

... пробовал когда-то, но что-то работает дерьмово.

[Alex Cones]

CM_MOUSELEAVE

Уже интересней. CM_MOUSELEAVE это виндовая WM_MOUSELEAVE?

[_SERGEYX_]

Посмотри примеры
http://delphiworld.narod.ru/base/is_...component.html
http://www.delphisources.ru/pages/fa...ouseleave.html
Там, правда для панели и т.п., но можно переделать и для формы

[Alex Cones]

Мде... Там не объясняется, что именно происходит "внутри". Мне нужна не конкретная реализация, а абстрактный способ. Делаю реализацию для GF.

[SERG1980]

procedure TForm1.FormMouseLeave(Sender: TObject);
begin
form1.Color:=clred;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
form1.Color:=clgreen;
end;

а так ещё проще

procedure TForm1.FormMouseLeave(Sender: TObject);
begin
if form1.Color=clred then form1.Color:=clgreen else form1.Color:=clred
end;

[GreyScall]

CM_MOUSELEAVE это виндовая WM_MOUSELEAVE?

Нет.
VCL'ское "message CM_MOUSEENTER / CM_MOUSELEAVE" вообще работает не корректно (во всяком случае в Делфи7)...

Начиная с Win2000 можно пользоваться TrackMouseEvent, на более старых версиях ОС придётся всё-таки таймером...
При WM_MOUSEMOVE или WM_NCMOUSEMOVE вызываем TrackMouseEvent с соответствующими параметрами - и тогда окну будут приходить сообщения WM_MOUSELEAVE или WM_NCMOUSELEAVE...
Только нужно ещё дочерние контролы предусмотреть...

MSDN >> TRACKMOUSEEVENT Structure
RSDN >> Как узнать, что мышь вышла за пределы окна?