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
ListViewCursosPos := ListView1.ScreenToClient(Mouse.CursorPos) ;
hts := ListView1.GetHitTestInfoAt(ListViewCursosPos.X, ListViewCursosPos.Y) ;
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;
if hts <= [htOnIcon, htOnItem, htOnLabel, htOnStateIcon] then
begin
selectedItem := ListView1.Selected;
Caption := Format('DblClcked : %s',[selectedItem.Caption]) ;
end;
end;