XE10:
NUR wenn sich der ItemIndex gerade geändert hat, liefert ClickEx im ItemObject das richtige getroffene EinzelElement(z.B. TListItemText), sonst bekommt man nur "TListView" als "Absender" und muss halt selber mit "InRect" abfragen ob der Punkt im gewünschten (Image)Element ist
Delphi-Quellcode:
procedure TfrmPscreen.lvDevicesItemClickEx(const Sender: TObject;
ItemIndex: Integer; const [Ref] LocalClickPos: TPointF;
const ItemObject: TListItemDrawable);
begin
if(Assigned(ItemObject)) then
lbDebug.Items.Add('Item '+ItemObject.ClassName + '='+ IntToStr(ItemIndex)+' '+FloatToStr(LocalClickPos.X) +' '+FloatToStr(LocalClickPos.Y) )
else
lbDebug.Items.Add('Sender '+Sender.ClassName + '='+ IntToStr(ItemIndex)+' '+FloatToStr(LocalClickPos.X) +' '+FloatToStr(LocalClickPos.Y) );
end;