Witam.
Czy istnieje jakaś metoda na sprawdzenie czy kursor myszy znajduje się w obrębie takiego obszaru?
Obszar definiuje przez współrzędne rogów tego prostokąta.
ps. Sytuacja wymusza, że nie mogę zrobić tego za pomocą message (np. CM_MouseEnter itp.)
Kombinowałem tak:
function mycha_w_obszarze(a, b, c, d: TPoint): boolean;
var
x,
y: Integer;
begin
x := Mouse.CursorPos.X;
y := Mouse.CursorPos.Y;
if (X>=a.x) and (Y<=a.y) and
(X>=b.x) and (Y>=b.y) and
(X<=c.x) and (Y<=c.y) and
(X<=d.x) and (Y>=d.y) then
result := true
else
result := false;
end;