Цитата:
|
Иммено на форме? Я пробовал твою функцию. У тебя получается только на всем screen'е.
|
Вот именно, как раз на всем скрине координаты определяются...
А если надо надо определить положение мыши на форме, добавляем метод ScreenToClient.
Код:
function CursInReg(R: TRect): Boolean;
var
CP: TPoint;
begin
GetCursorPos(CP);
ScreenToClient(Form1.Handle,CP); //Получили координаты на форме
if (CP.X>R.left)and(CP.X<R.Right)and(CP.Y>R.Top)and(CP.Y<R.Bottom) then Result:=True else Result:=False;
end;