Delphi 如何通过ItemClickEx事件上的Header TextGlyph按钮从Firemonkey TListView获取标题文本和详细信息文本？

在我的

TListView

On

FireMonkey

上，当用户单击标题的

TListItemTextButton

时，我需要在

TListView.ItemExClick

事件上获取标题的项目文本和详细文本

我有这样的东西

   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;

有什么线索吗？

---

Thanx提前。

麦基克事件不适用于标题。

---

因此，最简单的方法是使用一个TTextButton insted。

事件：McKick不适用于标题。

---

因此，最简单的方法是使用安装的TTEXT按钮。

TListView（发件人）。Items[ItemIndex]。Text

和

TListView（发件人）。Items[ItemIndex]。详细信息。

。感谢您的回答，但这不起作用。当没有选择“细节”项目时，它是第一个标题，即使单击第二个标题的按钮，当选择细节时，它也会给我细节文本。我应该说，我使用的是Delphi 10.2.1 Tokyo。Victoria，你的提示在ItemClickEx事件中不起作用，但在OnButtonClick事件中起作用。我将代码分为两部分，效果很好。

TListView（发件人）。Items[ItemIndex]。Text

和

TListView（发件人）。Items[ItemIndex]。详细信息

。感谢您的回答，但这不起作用。当没有选择“细节”项目时，它是第一个标题，即使单击第二个标题的按钮，当选择细节时，它也会给我细节文本。我应该说，我使用的是Delphi 10.2.1 Tokyo。Victoria，你的提示在ItemClickEx事件中不起作用，但在OnButtonClick事件中起作用。我将代码分为两部分，工作正常。