Ordenar Listview por columna

[Coco_jac]

Hola amigos del foro me gustaria saber si es posible ordenar el contenido de un Listview en base a una columna por decir ?

Gracias anticipadas

[roman]

Utiliza el método AlphaSort y el evento OnCompare.

Si buscas en la ayuda de Delphi acerca del evento OnCompare verás un ejemplo que hace exactamente lo que quieres.

// Saludos

[[Gunman]]

Vaya... Yo también iba a hacer esta pregunta...
Román, he visto el ejemplo de la ayuda de Delphi, pero no me ha solucionado nada... este es mi código, hago clic en las columnas pero nada...

Código Delphi [-]
procedure TMainFRM.ExplorerListColumnClick(Sender: TObject;
  Column: TListColumn);
begin
  ColumnToSort := Column.Index;
  (Sender as TCustomListView).AlphaSort;
end;

procedure TMainFRM.ExplorerListCompare(Sender: TObject; Item1,
  Item2: TListItem; Data: Integer; var Compare: Integer);
var
  i: Integer;
begin
  if ColumnToSort = 0 then
    Compare := CompareText(Item1.Caption,Item2.Caption)
  else begin
   i := ColumnToSort - 1;
   Compare := CompareText(Item1.SubItems[i],Item2.SubItems[i]);
  end;

[roman]

Pues lo acabo de probar y funciona bien. No estarás dando click en cualquier parte de la columna ¿verdad? Debe ser en el título.

// Saludos

[[Gunman]]

Claro, claro, en el título.
El SortType tiene que estar de alguna determinada forma? Tiene algo que ver que mi ListView sea un Virtual List View (es decir, tiene la propiedad OwnerData en True)?

[roman]

Empezado por [Gunman]

Tiene algo que ver que mi ListView sea un Virtual List View

Pues sí, creo que tiene todo que ver. No creo que sea posible usar el método en modo virtual. Si lo piensas tantito te sonará lógico. En modo virtual, el ListView no dispone de todos los datos, sólo de los que en un momento dado debe presentar. Pero para ordenar tendría que tener todos los datos.

// Saludos