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;

如何更改页眉和页脚？我只能用谷歌搜索上述解决方案。上面的代码只设置一些值而不是Item Text，但我无法更改页眉文本和页脚文本。

Answer 1

页眉和页脚是 TListViewItem 的常规实例，只不过它们的 Purpose 属性设置为 TListItemPurpose.Header 或 TListItemPurpose.Footer 。此属性指示组件使用特殊外观渲染这些项目 - 请参阅属性 ItemAppearance和ItemAppearanceObjects TListView。

您可以在运行时添加页眉和页脚(假设使用标准外观):

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;