Ver Mensaje Individual
  #5  
Antiguo 12-01-2023
giantonti1801 giantonti1801 is offline
Miembro
 
Registrado: oct 2022
Posts: 143
Reputación: 2
giantonti1801 Va por buen camino
Cita:
Empezado por Neftali [Germán.Estévez] Ver Mensaje
Depende de cómo hayas creado esos elementos.
En mi caso que utilizo ese sistema:
https://blog.delphiedintorni.it/2014...tlistview.html

Se puede acceder a los detalles de la siguiente forma (aunque uses otro, es posible que se pueda extrapolar) accediendo a los objetos:

En el evento OnItemclick hay lo siguiente:
Código Delphi [-]
var
  Str:String;
begin
    // recorrer los diferentes Objetos del Item
  for var I:integer := 0 to (AItem.Objects.Count-1) do 
    // Si son de tipo Texto los Añado
    if (AItem.Objects[i] is TListItemText) then
      Str := Str + TListItemText(AItem.Objects[i]).Text + SLineBreak;

  ShowMessage('Objects:' + Str);

En mi caso con un Listview así:



Si pulsas en los Items, obtienes esto:

(En el segundo)


(En el cuarto)
Mil Gracias amigo esta solución me quedo perfecta.
Responder Con Cita