Firemonkey ListView 獲取項目右方「＞」(Accessory) 事件，firemonkeylistview

Firemonkey ListView 獲取項目右方「＞」(Accessory) 事件，firemonkeylistview

適用：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;