Ver Mensaje Individual
  #3  
Antiguo 12-12-2017
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 18.233
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
PuedeS pRobar a acceder con la propiedad CheckedIndexes de los Items.
Algo así:

Código Delphi [-]
procedure TForm2.ListView1Click(Sender: TObject);
var
  str:String;
  lItems:TArray;
  i:integer;
begin
  lItems := ListView1.Items.CheckedIndexes();
  Str := '';
  for I := 0 to Length(lItems) - 1 do begin
    Str := Str + '  ' + IntToStr(lItems[i]);
  end;
  Caption := Str;

  ListBox1.Clear;
  for I := 0 to Length(lItems) - 1 do begin
    ListBox1.Items.Add(ListView1.Items.Item[lItems[i]].Text);
  end;
end;

__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.

Última edición por Neftali [Germán.Estévez] fecha: 12-12-2017 a las 23:07:42.
Responder Con Cita