Положение курсора

[Sanek_ntsk]

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

[mihali4]

Событие Form.OnMouseMove.
Если "мышиный" курсор имеется в виду...

[Terran]

Можно ещё так:

Procedure TForm1.Timer1Timer(Sender: TObject);
Var
P: TPoint;
Begin
GetCursorPos(P);
If (P.X < Form1.Left) Or (P.X > Form1.Left + Form1.Width) Or
(P.Y < Form1.Top) Or (P.Y > Form1.Top + Form1.Height) Then
Form1.Caption:='Курсор вне формы'
Else
Form1.Caption:='Курсор на форме';
End;

[Sanek_ntsk]

Мне желательно без таймера... mihali4, можно поподробнее пожалста???

[mihali4]

Terran прав - без таймера по-простому не сделать.

[Terran]

Вот, написал пример без таймера.

Var
HookHandle: HHook;
Function HookProc: Longint; Stdcall;
Var
P: TPoint;
Begin
GetCursorPos(P);
If (P.X < Form1.Left) Or (P.X > Form1.Left + Form1.Width) Or
(P.Y < Form1.Top) Or (P.Y > Form1.Top + Form1.Height) Then
Form1.Caption:='Курсор вне формы'
Else
Form1.Caption:='Курсор на форме';
End;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
HookHandle:=SetWindowsHookEx(WH_JOURNALRECORD,@HookProc,HInstance,0);
End;
Procedure TForm1.FormDestroy(Sender: TObject);
Begin
If HookHandle<>0 Then
UnhookWindowsHookEx(HookHandle);
End;

Если понадобится, то можете делать проверку на сообщение от мыши, когда она движется WM_MOUSEMOVE.

[Sanek_ntsk]

Спасибо большое!!! Помогло!!!