Delphi XE TListView 添加Header和Footer 的方法

Delphi XE TListView 添加Header和Footer 的方法

Item:=ListView1.Items.add;
Item.Text:='这是头内容Header';
Item.Purpose := TListItemPurpose.Header;  //指向头
Item:=ListView1.Items.add;
Item.Text:='Item中间内容 滔Roy';
Item:=ListView1.Items.add;
Item.Text:='这是尾内容Footer';
Item.Purpose := TListItemPurpose.Footer;  //指向尾

创建时间：2021.12.21　　更新时间：