Delphi listview 更改标题文本

Question

我有这个简单的表格：

我使用此代码来添加项目：

FList.BeginUpdate;
  try
    Flist.Items.Clear;

    for LJsonValue in LJsonArr do
      begin
        Item := FList.Items.Add;

        Item.Text := 'some value';

        //What to do?
        FList.??.??.HeaderText := 'Header';
      end;
  finally
    FList.EndUpdate;
  end;

如何更改页眉和页脚？我只能用谷歌搜索上述解决方案。上面的代码只设置了

some value

而不是

Item Text

，但我无法更改

Header Text

和

Footer Text

。

Answer 1

页眉和页脚是

TListViewItem

的常规实例，只不过它们的

Purpose

属性设置为

TListItemPurpose.Header

或

TListItemPurpose.Footer

。此属性指示组件使用特殊外观渲染这些项目 - 请参阅 TListView的属性 ItemAppearance 和

ItemAppearanceObjects

。

您可以在运行时添加页眉和页脚（假设使用标准外观）：

Item := Flist.Items.Add;
Item.Text := 'Header';
Item.Purpose := TListItemPurpose.Header;

Flist.Items.Add.Text := 'Item 1';
Flist.Items.Add.Text := 'Item 2';

Item := Flist.Items.Add;
Item.Text := 'Footer';
Item.Purpose := TListItemPurpose.Footer;

Answer 2

procedure TFrmPrincipal.AddHeader(categoria: string);
var
  item: TListViewItem;
begin
  item := lvProdutos.Items.Add;
  item.Purpose := TListItemPurpose.Header;
  item.Text := categoria;
end;

Créditos: 99Coders (https://www.youtube.com/watch?v=o2qEEhn_2Tc)