如何在Lazarus表格上划一条线？

Question

我经常使用TPanel或TGroupBox对表单控件进行分组。

现在我需要绘制一条直线，如Panel或GroupBox的边框。

我如何在LAZARUS上这样做？

提前致谢！

注意：该技术必须适用于Linux和Windows

Answer 1

作为光学线分隔符，您应使用TBevel组件Shape属性设置为以下值之一bsTopLine，bsBottomLine，bsLeftLine或bsRightLine取决于您当前需要的行，并将其调整为较小的尺寸（在您的情况下，您可以使用bsTopLine或bsBottomLine并垂直调整斜角）：

或者您可以使用名为TDividerBevel的特殊组件，除了单行添加到此光学分割器外还有一个标题：

Answer 2

这是我最终做的，但我不确定这是否正确，所以我不接受我的回答。如果有其他人可以指出任何问题，请告诉我。我发现这很简单：）

1. 在表单上放置一个TGroupBox。
2. 将标题属性留空。现在它应该看起来像一个只有边框的面板。
3. 使用鼠标并将底部边框向上拖动。现在它看起来像一条线。

好吧，我个人认为这种方法效率不高，因为它会占用更多的内存空间而不仅仅是真正的直线。无论如何，到目前为止它似乎对我有用：）

这是截图 - 向下看（在最后一个文本框的正上方）。唯一的问题是在线的两侧，它显示线弯曲。我想我应该正确设置属性而不是用鼠标拖动。