delphi11 TRect 代码

好的，以下是一个 Delphi 11 中使用 `TRect` 的示例代码：

uses
  Graphics;

procedure DrawRectOnCanvas(Canvas: TCanvas; Rect: TRect; Color: TColor);
begin
  Canvas.Pen.Color := Color;
  Canvas.Brush.Style := bsClear;
  Canvas.Rectangle(Rect);
end;

上述代码定义了一个过程 `DrawRectOnCanvas`，它接受三个参数：`Canvas` 表示要在哪个画布上绘制，`Rect` 表示要绘制的矩形区域，`Color` 表示要绘制的颜色。

下面是一个调用示例：

var
  MyRect: TRect;
begin
  MyRect := Rect(10, 10, 100, 100); // 创建一个矩形，左上角坐标为 (10, 10)，右下角坐标为 (100, 100)
  DrawRectOnCanvas(Canvas, MyRect, clRed); // 在画布上绘制一个红色的方框
end;

在上述示例中，我们创建了一个矩形区域 `MyRect`，左上角坐标为 (10, 10)，右下角坐标为 (100, 100)，然后调用了 `DrawRectOnCanvas` 过程，在画布上绘制了一个红色的方框。

希望这个示例代码能够帮助您使用 Delphi 11 中的 `TRect`。如果您有任何其他问题，请随时问我。