[DarkBlue]

he encontrado este codigo que se supone que me puede ayudar pero no se por que no me corre la idea es que obtiene la posicion donde se hizo click en la listview y despues obtiene el numero de la fila con la funcion getenumname pero estoy empezando a pensar que se debe a la vercion del dephi que tengo la cual es la 7.Alguien porfavor ayudaa.

Código Delphi [-]


var
   hts : THitTests;
   ht : THitTest;
   sht : string;
   ListViewCursosPos : TPoint;
 
   selectedItem : TListItem;
 begin
   //position of the mouse cursor related to ListView
   ListViewCursosPos := ListView1.ScreenToClient(Mouse.CursorPos) ;
 
   //double click where?
   hts := ListView1.GetHitTestInfoAt(ListViewCursosPos.X, ListViewCursosPos.Y) ;
 
   //"debug" hit test
   Caption := '';
   for ht in hts do 
 / /aqui me da un error que dice  For loop control variable must be simple local variable y ya no se que poner
 begin
     sht := GetEnumName(TypeInfo(THitTest), Integer(ht)) ;
     Caption := Format('%s %s | ',[Caption, sht]) ;
   end;
 
   //locate the double-clicked item
   if hts <= [htOnIcon, htOnItem, htOnLabel, htOnStateIcon] then
   begin
     selectedItem := ListView1.Selected;
 
     //do something with the double clicked item!
     Caption := Format('DblClcked : %s',[selectedItem.Caption]) ;
   end;
 end;