delphi - 如何通过 ItemClickEx 事件上的 Header textGlyphButton 从 Firemonkey TListView 获取标题文本和详细信息？

Question

在我TListView的外观FireMonkey为Header“自定义”时，我需要在TListview.ItemExClick事件中获取标题的项目文本和详细文本，当用户单击标题时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。