Ordenar Listview por columna

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

[[Gunman]]

Hay que jorobarse... Entonces como los puedo ordenar? Si se puede...

[roman]

Supongo que dependerá de cómo estés alimentando al ListView. Posiblemente haya que ordenar la fuente. Por ejemplo, si los datos los tmas de una base de datos, podrías cambiar el índice activo o reordenar cambiando el ORDER BY de la consulta SQL. De cualquier forma, toma en cuenta que la ordenación requiere todos los datos, con lo que se pierde en ese momento la ventaja del modo virtual.

// Saludos

[[Gunman]]

LoS items son archivos y directorios de Windows, es decir, los obtengo a partir de FindFirst y FindNext, el caption es el nombre de archivo o carpeta y los subitems son el tamaño, el tipo, la fecha de modificación y la fecha de creación de los archivos y carpetas.