Delphi ListView 样式与水平分隔线

【问题标题】：Delphi ListView style with Horizontal Separator LinesDelphi ListView 样式与水平分隔线
【发布时间】：2015-10-22 15:47:28
【问题描述】：

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

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

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

有可能吗？

【问题讨论】：

【解决方案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。

【讨论】：