Проверка попадания точки в прямоугольник (TPoint в TRect)

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Проверка попадания точки в прямоугольник (TPoint в TRect)

Проверка - входят ли координаты точки TPoint в область,
ограниченную координатами прямоугольника TRect.
P.S. Вероятно, есть стандартная, но я не нашел.

Зависимости: Windows
Автор:       lipskiy, lipskiy@mail.ru, ICQ:51219290, Санкт-Петербург
Copyright:   Собственное написание (lipskiy)
Дата:        26 июня 2002 г.
***************************************************** }

function
 PointIntoRect(Point: TPoint; Rect: TRect): boolean;
begin

  Result :=
    (Point.x >= Rect.Left) and

    (Point.x <= Rect.Right) and

    (Point.y >= Rect.Top) and

    (Point.y <= Rect.Bottom);
end
;

Другое по теме:

• Delphi и графика
• Вывод надписи поверх всех окон
• Изменить режим копирования изображения