Irregular shapes in Delphi
在Delphi中，使用Firemonkey：
如何使用TShape组件获得类似于图形的形状？
我不想使用位图。
- 我不知道Firemonkey，但是在VCL中，我只使用TPaintBox并在其OnPaint处理程序中写几行代码。
-
您要制作带有特定矢量图像的自己的组件吗？还是只想在一个地方制作自定义图纸？在后一种情况下，您可以只使用TPaintBox并分配OnPaint。绘制时，我将使用TPath
-
使用来自Fmx.Objects单元的Tpath组件。在其属性中，您将找到TPathdata类型的数据。您可以在此处定义形状的形状：docwiki.embarcadero.com/Libraries/Tokyo/en/…
将TPath组件与以下路径数据一起使用应该会给您一个与您想要的结果非常相似的结果：
M0,0 L100,0 C110，-5 110，-15 120，-20 L200，-20 C210，-15210，-5 220,0 L320,0 L320,5 L0,5 Z
