Как получить текст заголовка и текст детализации из Firemonkey TListView с помощью заголовка textGlyphButton для события ItemClickEx?

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.