drawing - 如何在 Lazarus 表格上画一条线？

Question

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

现在我只需要画一条直线，比如 Panel 或 GroupBox 的边框。

我如何在 LAZARUS 上做到这一点？

提前致谢！

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

Answer 1

作为光学线分离器，您应该使用属性设置为以下值之一的组件，TBevel或者根据您当前需要的线并将其调整为更小的尺寸（在您的情况下，您可以使用或垂直调整斜角的大小):ShapebsTopLinebsBottomLinebsLeftLinebsRightLinebsTopLinebsBottomLine

或者你可以使用一个特殊的组件TDividerBevel，除了单行添加到这个光分频器之外，还有一个标题：

Answer 2

这是我最终完成的工作，但我不确定这是否是正确的方式，所以我不会接受我的回答。如果有其他人可以指出任何问题，请告诉我。我发现这也很简单:)

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

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

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