Texto celda pulsada en un ListView

[ecfisa]

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

[[escafandra]]

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:

Código PHP:

String GetListViewSubItem(TListView *LV)
{
  LVHITTESTINFO Info;
  TListItem *Item;
  int Index;
  String Result = "";

  Info.pt = LV->ScreenToClient(Mouse->CursorPos);
  Index   = ListView_SubItemHitTest(LV->Handle, &Info);
  if(Index != -1){
    Item = LV->Items->Item[Index];
    if(Info.iSubItem == 0)
      Result = Item->Caption;
    else
      Result = Item->SubItems->Strings[Info.iSubItem-1];
  }
  return Result;
} 


Código PHP:

void __fastcall TForm1::ListViewClick(TObject *Sender)
{
  Caption = GetListViewSubItem(ListView);  
} 


Saludos.