Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  
Подписаться на рассылку:
Клуб программистов


Основы Delphi
PtInRect
Функция
Проверяет, находится ли точка в пределах прямоугольника Types unit
  function PtInRect ( const TheRectangle : TRect; const ThePoint : TPoint ) : Boolean;
Описание
Функция PtInRect возвращает true, если ThePoint находится в пределах TheRectangle.

Обратите внимание, что прямоугольник внутри определен как:

(left, top, right-1, bottom-1)
Похожие команды
Bounds  Передаёт координаты вершин объекта типа TRect (прямоугольник)

Point  Генерирует значение TPoint из значений X и Y

PointsEqual  Сравнивает два значения TPoint на предмет равенства

Rect  Создаёт величину TRect с указанием 2 точек или 4 координат

TPoint  Содержит целочисленные значения X и Y

TRect  Содержит значения координат прямоугольника

 
Пример кода : Определение внутренних и внешних точек прямоугольника
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 вне прямоугольника
 



© Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки  |     |  Английская версия