获取矩形局域的方法，Rect、Bounds、Point

最新推荐文章于 2021-08-06 18:00:17 发布

转载最新推荐文章于 2021-08-06 18:00:17 发布 · 147 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/del88/p/6713263.html

本文介绍了一个使用Delphi实现的矩形操作示例，包括如何获取按钮的边界矩形以及通过不同方法设置矩形的位置和大小。具体演示了使用`BoundsRect`属性以及`Rect`和`Bounds`函数来定义矩形区域。

获取一个点和矩形区域的方法如下：

var
  R: TRect;

procedure TForm5.FormCreate(Sender: TObject);
begin
  RadioGroup1.Items.CommaText := 'Undo,Rect,RectPoint,Bounds';
  R := Button1.BoundsRect;
end;

procedure TForm5.RadioGroup1Click(Sender: TObject);
begin
  case RadioGroup1.ItemIndex of
    0: Button1.BoundsRect := R;

    //function Rect(ALeft, ATop, ARight, ABottom: Integer): TRect;
    1: Button1.BoundsRect := Rect(50, 50, 100, 80);  {50与50是矩形左上角点，100与80是矩形 右下角这个点}

    //function Rect(const ATopLeft, ABottomRight: TPoint): TRect;
    2: Button1.BoundsRect := Rect(Point(50, 50), Point(100,80)); //不发生变化，可见上面10与80就是矩形 右下角这个点

    //function Bounds(ALeft, ATop, AWidth, AHeight: Integer): TRect;
    3: Button1.BoundsRect := Bounds(50, 50, 100, 80);{50和50是矩形左上角点，100从这个点向右延伸宽度，80是从这个点向下延伸高度}
  end;
end;