Firemonkey ListView 的点击事件一直让人摸不着头绪（各平台触发规则不太相同），因为它提供了点击相关的事件就有如下：
下例将 Item.Apperance 设定为 Custom。
可获取每一个单项的事件触发：
有一些问题存在：
参考代码：
procedure TForm1.ListView1ItemClickEx(const Sender: TObject; ItemIndex: Integer; const [Ref] LocalClickPos: TPointF; const ItemObject: TListItemDrawable); begin if ItemObject is TListItemText then Label1.Text := ‘OnItemClickEx_Text_‘ + ItemIndex.ToString else if ItemObject is TListItemImage then Label1.Text := ‘OnItemClickEx_Image_‘ + ItemIndex.ToString else if ItemObject is TListItemAccessory then Label1.Text := ‘OnItemClickEx_Accessory_‘ + ItemIndex.ToString else if ItemObject is TListItemTextButton then Label1.Text := ‘OnItemClickEx_Button_‘ + TListItemTextButton(ItemObject).TagFloat.ToString else Label1.Text := ‘OnItemClickEx‘ + ItemIndex.ToString; end;
原文：http://www.cnblogs.com/onechen/p/4790503.html