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。

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

1 个答案: