[Android] Delphi Berlin - comment acceder au click de l'accessoire

Avec le ItemClickEx et ItemObject j'obtient TListItemText sur l'item et TListItemAccessory sur l'accessoire :)

Code:

1
2
3
4
5
6
7
8
9
10
11
procedure TForm2.ListView1ItemClickEx(const Sender: TObject; ItemIndex: Integer;
  const LocalClickPos: TPointF; const ItemObject: TListItemDrawable);
begin
   if ItemObject.ClassName = 'TListItemText' then
      showmessage('Item')
   else
      if ItemObject.ClassName = 'TListItemAccessory' then
         showmessage('Accessory')
      else
         ShowMessage(ItemObject.ClassName);
end;