{ **** UBPFD *********** by delphibase.endimus.com **** >> Проверка попадания точки в прямоугольник (TPoint в TRect) Проверка - входят ли координаты точки TPoint в область, ограниченную координатами прямоугольника TRect. P.S. Вероятно, есть стандартная, но я не нашел. Зависимости: Windows Автор: lipskiy, lipskiy@mail.ru, ICQ:51219290, Санкт-Петербург Copyright: Собственное написание (lipskiy) Дата: 26 июня 2002 г. ***************************************************** } functionPointIntoRect(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
;