delphi - Delphi ListView 样式与水平分隔线

Question

我正在用 Delphi Seattle 10 做一个移动应用程序，让我对 ListView 的风格产生了疑问。

当 Listview 为空时，它看起来像这样，没有填充所有水平分隔线，如下所示：

我想知道它是否可能，我不知道，以某种方式改变风格，使它看起来像这样：

有可能吗？

Answer 1

当您添加新的 TListViewItem 时，将添加每个分隔线。如果你真的想做这个，你只能用一种方法来做。那是：

创建一个TListViewItem

var 
 aItem: TListViewItem;

向您的TForm添加一个动作，其中包括像onCreate这样的TListView

for I:= 0 to 10 do
begin
 aItem := TListView1.Items.Add;
 aItem.Text := '';
end;

这只是一个小技巧。或者，也许您应该尝试使用 Canvas，但我不建议您为此使用 Canvas。