function PtInRect ( const TheRectangle : TRect; const ThePoint : TPoint ) : Boolean;
Функция PtInRect возвращает true, если ThePoint находится в пределах TheRectangle. Обратите внимание, что прямоугольник внутри определен как: (left, top, right-1, bottom-1)
|
var myRect : TRect; begin // Создание прямоугольника // Обратите внимание: внутренняя часть прямоугольника начинается в верху слева // и заканчивается 1 пикселем в правой нижней части. myRect := Rect(20, 30, 100, 200); // Проверка (20,30) находится в прямоугольнике if PtInRect(myRect, Point(20,30)) then ShowMessage(' 20, 30 внутри прямоугольника') else ShowMessage(' 20, 30 вне прямоугольника'); // Проверка (99,199) находится в прямоугольнике if PtInRect(myRect, Point(99,199)) then ShowMessage(' 99,199 внутри прямоугольника') else ShowMessage(' 99,199 вне прямоугольника'); // Проверка (100,200) находится в прямоугольнике if PtInRect(myRect, Point(100,200)) then ShowMessage('100,200 внутри прямоугольника') else ShowMessage('100,200 вне прямоугольника'); end;
|