delphi - 如何在 FireMonkey TListView 对象上绘制边框

Question

如果将 FMX.TStringGrid 放到新的 FireMonkey 表单上，网格将显示为细边框。

如果将 FMX.TTListView 放到表单上，则没有边框。

这两个组件似乎都没有用于启用/禁用边框或设置边框颜色或宽度的属性。

我假设这是由于跨平台的要求，那么应该怎么做呢？我需要添加一个面板，然后将 ListView 放在面板内吗？还是与风格有关，例如需要 TStyleBook？

Answer 1

是的，TListView 没有边框。 Firemonkey 提供了几种向任何可视控件添加边框的方法。为了添加简单的边框，我不会尝试更改样式。

在我看来，最简单的解决方案是将调色板(来自 Shapes)中的矩形放入表单中。在矩形中将 Stroke 设置为所需的颜色和厚度。下一步，转到设计器中的结构 View 并将 Listview 作为子元素移动到此矩形中。将 ListView 的 Align 属性更改为 Client。要再次显示边框线，必须将矩形的 Padding(底部、左侧、右侧和顶部)的所有值设置为矩形描边的粗细值。

如果您愿意，还可以在矩形或 ListView 控件上添加 TShadowEffect。