TListViewItem mit Custom Appearance... wo wurde hingeklickt?

[mensch72]

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;