Delphi TRect函数例子

{

在网上看到个这个例子感觉还不错，将它移到自己的博客里没事的时候看看；

TRect

作用：保存一个矩形的左上角和右下角的坐标值；

声明：

type TRect = packed record

case integer of

0:(Left, Top, Right, Botton:Integer);

1:(TopLeft, BottonRight:TPoint);

end;

由上面的TRect可知，TRect是一个记录类型（TRect），保存了矩形的左上角右下角两个点，4个坐标

或2个点的值。

这个声明是Record类型使用Case子句的典型的例子。

当我们通TopLeft和BottonRight两个点创建矩形时，可以传递两个TPoint值或用Point函数产生他们；

}

unitUnit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 =class(TForm)

Button1: TButton;

procedureButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedureTForm1.Button1Click(Sender: TObject);

var

rectangle1, rectangle2:TRect;

begin

//用Rectangle来手工设置一个矩形；

Rectangle1.Left :=0;

rectangle1.Top :=0;

rectangle1.Right :=40;

rectangle1.Bottom :=60;

//再用Rect函数设置第二个矩形；

Rectangle2 := Rect(Point(20,40), Point(60,80));

//显示每个矩形的左上角和左下角的坐标

ShowMessageFmt('Rectangle 1 coords = %d, %d, %d, %d',

[rectangle1.left,

rectangle1.top,

rectangle1.Right,

rectangle1.Bottom]);

ShowMessageFmt('Rectangle 2 coords = %d, %d, %d, %d',

[rectangle2.Left,

rectangle2.Top,

rectangle2.Right,

rectangle2.Bottom]);

end;

end.