Функція PtInRect в Delphi перевіряє, чи знаходиться точка в межах прямокутника.
Types unit
function PtInRect (const TheRectangle : TRect; const ThePoint : TPoint) : Boolean;
Функция PtInRect повертає true, якщо ThePoint знаходиться в межах TheRectangle.
Зверніть увагу, що прямокутник усередині визначений як:
(left, top, right-1, bottom-1)
Функція PtInRect: Визначення внутрішніх та зовнішніх точок прямокутника
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;Результат
20,30 всередині прямокутника
99,199 всередині прямокутника
100,200 поза прямокутником
Подібні функції, процедури та команди
Bounds — передає координати вершин об'єкта типу TRect (прямокутник).
Point — генерує значення TPoint із значеньX и Y.
PointsEqual — порівнює два значення TPoint щодо рівності.
Rect — створює величину TRect із зазначенням 2 точок або 4 координат.
TPoint — містить цілочислові значення X и Y.
TRect — містить значення координат прямокутника.
