Delphi TRect函数例子-白红宇

Delphi TRect函数例子

阅读量：6147 次

发布时间：2019-06-21

本文共 1313 字，大约阅读时间需要 4 分钟。

{ 
在网上看到个这个例子感觉还不错，将它移到自己的博客里没事的时候看看；
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函数产生他们；
}
unit
 
Unit1;
interface
uses
  
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  
Dialogs, StdCtrls;
type
  
TForm1 = 
class
(TForm)
    
Button1: TButton;
    
procedure
 
Button1Click(Sender: TObject);
  
private
    
{ Private declarations }
  
public
    
{ Public declarations }
  
end
;
var
  
Form1: TForm1;
implementation
{$R *.dfm}
procedure
 
TForm1
.
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
.