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!!!