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;

Answer 2

梅森，一个更好的制作形状按钮的方法是为它制作一个面具。执行此操作的组件应位于此处：http://www.delphi-jedi.org/

有免费形状的按钮组件吗？

2 个答案: