如何通过 Header textGlyphButton 在 ItemClickEx 事件上从 Firemonkey TListView 获取 Header Text 和 Detail 文本？

Question

在 FireMonkey 上 TListView 的 Header 外观为 "Custom"，我需要获取 header 的项目文本和详细信息文本，在 TListview.ItemExClick 事件中，当用户点击 Header 的 TListItemTextButton。

我有这样的东西...

   procedure TForm1.lv1ItemClickEx(const Sender: TObject; ItemIndex: 
    Integer;
      const LocalClickPos: TPointF; const ItemObject: TListItemDrawable);
   begin
     if ItemObject is TListItemTextButton then
     begin
       if TListItemTextButton(ItemObject).Text = '-' then
       begin
         TListItemTextButton(ItemObject).Text := '+';
         //Do something with header´s text   
       end
       else if TListItemTextButton(ItemObject).Text = '+' then
       begin
         TListItemTextButton(ItemObject).Text := '-';
         //Do something with header´s text
       end;
     end;
    end;

有线索吗？提前致谢。

Answer 1

事件 OnItemCkick 不适用于页眉。因此，最简单的方法是使用 TTextButton insted。

如何通过 Header textGlyphButton 在 ItemClickEx 事件上从 Firemonkey TListView 获取 Header Text 和 Detail 文本？

How to get Header Text and Detail text from Firemonkey TListView by Header textGlyphButton on ItemClickEx Event?

delphi

tlistview

firemonkey