Texto celda pulsada en un ListView
 

Hola. Necesitaría sacar el texto de la celda pulsada por el ratón en un ListView. Es decir, quiero identificar que celda he seleccionado dentro de un ListView. Muchas gracias

Si lo que quieres es mostrar el texto (caption) de los items que están seleccionados (checked), entonces esto te puede servir:

Código Delphi [-]
procedure TForm1.ListView1Click(Sender: TObject);
begin
  VerSeleccionados;
end;

procedure TForm1.VerSeleccionados;
var
  Seleccionados: TStringList;
  i: Integer;
begin
  Seleccionados := TStringList.Create;
  try
    for i := 0 to ListView1.Items.Count - 1 do
      if ListView1.Items[i].Checked then
        Seleccionados.Add(ListView1.Items[i].Caption);

    memo1.Text := Seleccionados.Text;
  finally
    Seleccionados.Free;
  end;
end;

Escribí una clase para copiar cualquier campo (Caption y SubStrings) de un ListView al portapapeles. Quizás te oriente.
ListViewCopy

Saludos.

Hola.

Otra opción para capturar el texto del ítem ante el click del ratón:

Código Delphi [-]
...
uses CommCtrl;

function GetListViewSubItem( LView: TListView ): string;
var
  Item: TListItem;
  Info: TLVHitTestInfo;
  Inx: Integer;
begin
  Info.pt := LView.ScreenToClient( Mouse.CursorPos );
  Inx := ListView_SubItemHitTest( LView.Handle, @Info );
  Result := '';
  if Inx <> -1 then
  begin
    Item:= LView.Items[Inx];
    if Info.iSubItem = 0 then
      Result := Item.Caption
    else
      Result:= Item.SubItems[Info.iSubItem-1];
  end;
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.ListView1Click( Sender: TObject );
begin
  Caption := GetListViewSubItem( ListView1 );
end;

Saludos :)

Estoy viendo que este es el foro de C++ Builder así que por si hubiese dificultades voy a traducir el código que expone ecfisa:



Saludos.