Hola,
Tal vez esto podrá servirte:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
trackStyles: TListHotTrackStyles;
begin
ListView1.HotTrack := true;
trackStyles := ListView1.HotTrackStyles;
ListView1.HotTrackStyles := trackStyles + [htHandPoint];
ListView1.HotTrackStyles := trackStyles - [htUnderlineCold];
ListView1.HotTrackStyles := trackStyles + [htHandPoint, htUnderlineCold];
end;
Actualización: Otra forma de hacerlo podría ser esta:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
trackStyles: TListHotTrackStyles;
begin
if True then
Include(trackStyles, htHandPoint)
else
Exclude(trackStyles, htHandPoint);
ListView1.HotTrackStyles := trackStyles;
end;