主页 / coding / 问题 / 79425939
Accepted
Shaun Roselt
Asked: 2025-02-10 09:29:28 +0800 CST

如何在FMX中动态创建具有圆角的TRectangle？

  • 772

我知道这很简单，但我只是不知道为什么我的TRectangle没有圆角。

这是我的代码：

var Box2 := TRectangle.Create(Application);
Box2.Parent := Form1;
Box2.Position.X := 300;
Box2.Position.Y := 256;
Box2.Width := 177;
Box2.Height := 50;
Box2.Stroke.Thickness := 10;
Box2.XRadius := 10;
Box2.XRadius := 10;
Box2.Name := 'Whatever2';

它看起来是这样的：

Delphi 中的 TRectangle

这就是我需要的样子：

Delphi 中的 TRectangle

为了显示圆角，我的代码中缺少什么？

delphi

1 个回答

  1. Best Answer

    我花了一段时间才弄清楚问题所在，结果发现是一个打字错误！

    您有以下几行。发现什么问题了吗？

    Box2.XRadius := 10;
Box2.XRadius := 10;

    两者都是 X！

    我发现它的方法是在设计时创建另一个框（Box1）（工作正常），然后将以下内容添加到代码末尾，以查看是否尽管出现问题，但仍存在不同之处。

      Assert(Box1.Corners=Box2.Corners);
  Assert(Box1.CornerType=Box2.CornerType);
  Assert(Box1.XRadius=Box2.XRadius);
  Assert(Box1.YRadius=Box2.YRadius);

    我在最后一行得到了一个断言失败（我认为这很奇怪；为什么匹配XRadius但不匹配YRadius？），然后我发现了问题。

    • 4

相关问题