Firemonkey ListView 获取项目右方「＞」(Accessory) 事件

适用：XE6 或更高版本

说明：ListView 在基本的项目里提供了 Accessory（项目右方「＞」符号），但要如何分辨是否按下＞或者项目本身呢？在 XE6 提供了 OnItemClickEx 事件可以辨识，如下例：

procedure TForm1.ListView1ItemClickEx(const Sender: TObject; ItemIndex: Integer;
  const LocalClickPos: TPointF; const ItemObject: TListItemObject);
begin
     if ItemObject is TListItemAccessory then
        ShowMessage('Click Accessory');
end;