Mostrar un ícono en una columna de un listview

[aeff]

hecha un vistazo a esto:

Código Delphi [-]
...
 
implementation
 
uses  CommCtrl;
 
procedure SetColumnImage(List: TListView; Column, Image: Integer; ShowImage:
  Boolean);
var
  Align, hHeader: integer;
  HD: HD_ITEM;
begin
  hHeader := SendMessage(List.Handle, LVM_GETHEADER, 0, 0);
  with HD do
  begin
    case List.Columns[Column].Alignment of
      taLeftJustify: Align := HDF_LEFT;
      taCenter: Align := HDF_CENTER;
      taRightJustify: Align := HDF_RIGHT;
    else
      Align := HDF_LEFT;
    end;
    mask := HDI_IMAGE or HDI_FORMAT;
    pszText := PChar(List.Columns[Column].Caption);
    if ShowImage then
      fmt := HDF_STRING or HDF_IMAGE or HDF_BITMAP_ON_RIGHT
    else
      fmt := HDF_STRING or Align;
    iImage := Image
  end;
  SendMessage(hHeader, HDM_SETITEM, Column, Integer(@HD));
end;

en el evento OnColumnClick coloca esto:

Código Delphi [-]
   SetColumnImage(ListView1, 1, 0, true);

solo tienes que relacionar la propiedad SmallImages del ListView con un ImageList y en este las imáganes de las flechitas.

Puedes adaptar un poco más el código a tu comodidad.

Espero haberte ayudado.

salduos.

aeff!!!