Firemonkey ListView Get Project Right ">" (accessory) Event

For: XE6 or later

Description: The ListView provides accessory (the right ">" symbol for the project) in the basic project, but how can I tell if it is pressed or the project itself? The XE6 provides a Onitemclickex event that can be identified, as in the following example:

procedure Tform1.listview1itemclickex (const  sender:tobject; Itemindex:integer;   Const Const itemobject:tlistitemobject); begin     if  is  Then         showmessage ('Click accessory'); End;

Firemonkey ListView Get Project Right ">" (accessory) Event