Dynamic Appearance下ListView项头部Accessory按钮点击及多按钮添加问题

方案1：修复Header Accessory按钮点击不触发问题 #

• 首先确认自定义Header内Accessory对象的Interactive属性，默认场景下Header内部的Accessory会继承父容器的交互禁用配置，哪怕Visible设置为True也不会响应点击事件
• 检查Header对象的HitTest属性，必须设为True才能将点击事件透传到内部子元素
• 如果你使用的是示例自带的CustomHeader外观，可在TListView的OnUpdateObject事件中手动给Header的Accessory启用交互权限：

procedure TForm1.ListView1UpdateObject(const Sender: TObject;
  const AItem: TListViewItem; const AObject: TListItemDrawable);
begin
  // 匹配Header内的Accessory对象
  if AObject.Parent is TListItemHeader and (AObject.Name = 'Accessory') then
  begin
    AObject.Interactive := True;
    AObject.HitTest := True;
  end;
end;

修改完成后点击Accessory即可正常触发ListView1ItemClickEx事件。 #

方案2：给Header添加2个TextButton实现 #

• 打开ListView的Appearance编辑器，找到Custom Header的外观定义项
• 在Header的元素列表中新增2个TListItemTextButton类型的对象，分别设置不同的Name、对齐方式和左右边距，避免元素重叠
• 确认两个TextButton的Interactive、HitTest属性均为True，Visible设置为True
• 在OnUpdateObject事件中给两个按钮设置显示文本和自定义样式：

procedure TForm1.ListView1UpdateObject(const Sender: TObject;
  const AItem: TListViewItem; const AObject: TListItemDrawable);
begin
  if AObject.Parent is TListItemHeader then
  begin
    if AObject.Name = 'HeaderBtn1' then
      TListItemTextButton(AObject).Text := '功能按钮1';
    if AObject.Name = 'HeaderBtn2' then
      TListItemTextButton(AObject).Text := '功能按钮2';
  end;
end;

• 在ListView1ItemClickEx事件中通过Name区分点击的按钮即可：

procedure TForm1.ListView1ItemClickEx(const Sender: TObject;
  ItemIndex: Integer; const LocalClickPos: TPointF;
  const ItemObject: TListItemDrawable);
begin
  if ItemObject.Name = 'HeaderBtn1' then
    ShowMessage('第一个头部按钮被触发');
  if ItemObject.Name = 'HeaderBtn2' then
    ShowMessage('第二个头部按钮被触发');
end;

注意：需要保证Header本身的高度足够容纳两个按钮，避免按钮被截断导致点击区域失效。如果是动态高度的Header，需要在OnListViewItemResize事件中动态计算Header高度。

内容的提问来源于stack exchange，提问作者Liba Drako