带水平分隔线的Delphi ListView样式

Question

我正在使用Delphi Seattle 10进行移动应用程序，让我对ListView的风格产生怀疑。

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

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

它可以吗？

Answer 1

添加新的TListViewItem时，将添加每个分隔线。如果你真的想要这样做，你只能用一种方式。那就是：

创建 TListViewItem

var 
 aItem: TListViewItem;

向 TForm 添加操作，包括 TListView ，例如 onCreate

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

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