Пример кода : Создание прямоугольника, используя Rect и Bounds
var
rectangle1, rectangle2 : TRect;
begin // Установка первого
прямоугольника, используя функцию Rect //
Обратите внимание, что мы заменяем Types версию Rect.
rectangle1 := Classes.Rect(Point(10, 60), Point(50, 80)); // Установка идентичного 2-го
прямоугольника, используя функцию Bounds
rectangle2 := Bounds(10, 60, 40, 20); // Показ левой верхней и правой
нижней координаты каждого прямоугольника
ShowMessageFmt('Координаты 1-го прямоугольника = %d,%d,%d,%d',
[rectangle1.Left,
rectangle1.Top,
rectangle1.Right,
rectangle1.Bottom]);
ShowMessageFmt('Координаты 1-го прямоугольника = %d,%d,%d,%d',
[rectangle2.Left,
rectangle2.Top,
rectangle2.Right,
rectangle2.Bottom]);
end;
Координаты 1-го прямоугольника = 10,60,50,80
Координаты 1-го прямоугольника = 10,60,50,80