delphi - 有可用的自由形状按钮组件吗？

Question

已结束。此问题正在寻求书籍、工具、软件库等的推荐。它不满足 Stack Overflow guidelines 。目前不接受答案。

---

我们不允许提出寻求书籍、工具、软件库等推荐的问题。您可以编辑问题，以便用事实和引文来回答。

已关闭 8 年前。

Improve this question

我最近将源代码下载到了一个“开源”项目，不幸的是，该项目依赖于一堆昂贵的专有库，包括 Infopower 1stClass ，它似乎主要用于 TfcShapeButton，该组件的作用类似于标准 TBitBtn，只不过您可以通过描述点列表为其指定任意多边形形状。 DFM 代码如下所示:

      PointList.Strings = (
        '8,29'
        '18,19'
        '28,29'
        '20,37'
        '16,37')

我正在尝试清理这个项目，使其看起来像一个真正的开源项目，任何人都可以下载和构建，而无需花费数百美元购买组件库，但我想改变外观并尽可能少地感受到。那么有人知道像这样的开源形状按钮组件可以与 D2009 及更高版本一起使用吗？

Answer 1

这段代码完全满足您的需要。

const Points: array [1..5] of tPoint = (
    (x:8;y:29),
    (x:18;y:19),
    (x:28;y:29),
    (x:20;y:37),
    (x:16;y:37) );

begin
  SetWindowRgn(Button2.Handle, CreatePolygonRgn(Points, 5, WINDING), True);
end;