Курсор мыши над формой

[8adim]

Хочу как-то словить событие, когда курсор мыши уходит с формы.
Кроме как по таймеру определять позицию мыши на экране и сравнивать с координатами формы,
ничего другого пока в голову не приходит.

[Grag]

procedure TForm1.FormDeactivate(Sender: TObject);
begin
  ReleaseCapture
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
  If GetCapture=0 then SetCapture(Form1.Handle);
  if PtInRect(Rect(Form1.Left, Form1.Top, Form1.Left + Form1.Width, 
                                        Form1.Top + Form1.Height), ClientToScreen(Point(x, y))) 
    then Form1.Caption := 'Мышка на форме' 
    else Form1.Caption := 'Мышка за пределами формы'
end;

[8adim]

Сообщение от Grag

procedure TForm1.FormDeactivate(Sender: TObject);
begin
  ReleaseCapture
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
  If GetCapture=0 then SetCapture(Form1.Handle);
  if PtInRect(Rect(Form1.Left, Form1.Top, Form1.Left + Form1.Width, 
                                        Form1.Top + Form1.Height), ClientToScreen(Point(x, y))) 
    then Form1.Caption := 'Мышка на форме' 
    else Form1.Caption := 'Мышка за пределами формы'
end;

Не срабатывает, когда вся форма завалена другими компонентами

[Stilet]

А пожалуй по таймеру будет самое удобное. Честное слово.

[ParaSenok]

кидаешь на форму таймер

var point:tpoint;

procedure tform1.timer(sender:tobject);
var mousex,mousey:integer;
begin
  getcursorpos(point);
   MouseX:=point.X;
   MouseY:=point.Y;

 if (mousex<form1.left)or(mousex>form1.left+form1.Width) or
   (mousey<form1.top)or(mousey>form1.top+form1.Height)
    then caption:='за пределами формы' else
    caption:='курсор на форме';
end

по другому врятли получиться.. потому что компоненты на форме.. будут перекрывать саму форму..и так фиг отловишь

[8adim]

Сообщение от ParaSenok

кидаешь на форму таймер

var point:tpoint;

procedure tform1.timer(sender:tobject);
var mousex,mousey:integer;
begin
getcursorpos(point);
MouseX:=point.X;
MouseY:=point.Y;

if (mousex<form1.left)or(mousex>form1. left+form1.Width) or
(mousey<form1.top)or(mousey>form1.t op+form1.Height)
then caption:='за пределами формы' else
caption:='курсор на форме';
end


по другому врятли получиться.. потому что компоненты на форме.. будут перекрывать саму форму..и так фиг отловишь

Да, так и получилось через таймер.
Наиболее надежный способ.
Спасибо всем.

[x128]

А не проще события использовать?

  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure MouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
    procedure MouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
...
 
procedure TForm1.MouseLeave(var Msg: TMessage);
begin
  Caption:='Leave';
end;
 
procedure TForm1.MouseEnter(var Msg: TMessage);
begin
  Caption:='Enter';
end;

[Stilet]

А не проще события использовать?

Не всегда. Иногда когда форму покрывают полностью другие контролы-контейнеры это событие просто может не наступить для формы, или если мышкой быстро двинуть оно так же может не наступить. ИМХО таймер тут самое оно.

[8adim]

Сообщение от Stilet

Не всегда. Иногда когда форму покрывают полностью другие контролы-контейнеры это событие просто может не наступить для формы, или если мышкой быстро двинуть оно так же может не наступить. ИМХО таймер тут самое оно.

Да, это был первый (неудачный) вариант, который я попробовал.
Как только мышь, двигаясь по форме, доползает до первого попавшегося Timage, для нее наступает событие MouseLeave, к сожалению.