HotTrackStyles de un ListView

[Tecnic2]

Hola a todos,

Estoy intentado asignar en tiempo de ejecución a un ListView la propiedad HotTrackStyles (con sus 3 opciones) pero no sé cómo hacerlo.

Alguien me puede sacar de ésta duda??

Muchas gracias por adelantado.

[dec]

Hola,

Tal vez esto podrá servirte:

Código Delphi [-]
  procedure TForm1.Button1Click(Sender: TObject);
  var
    trackStyles: TListHotTrackStyles;
  begin
    // Activamos la opción
    ListView1.HotTrack := true;
  
    // Recuperamos los estilos
    trackStyles := ListView1.HotTrackStyles;
  
    // Añadimos un determinado estilo
    ListView1.HotTrackStyles := trackStyles + [htHandPoint];
  
    // Quitamos un determinado estilo
    ListView1.HotTrackStyles := trackStyles - [htUnderlineCold];
  
    // Añadimos dos estilos a un tiempo
    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
   // Por ejemplo
   if True then
     // Añadimos
     Include(trackStyles, htHandPoint)
   else
     // Quitamos
     Exclude(trackStyles, htHandPoint);
   // Y por último asignamos
   ListView1.HotTrackStyles := trackStyles;
 end;

[Tecnic2]

Muchas gracias, era eso exactamente.

Poco a poco voy pillando las manera de Delphi