Listview mit FullDrag sortieren

[ThoPos]

Hallo Zusammen,

ich nutze die in diesem Froum gefundene Routine zum Sortieren von ListViews.

Solange man kein FullDrag nutzt, funktioniert die Sache super, aber ich finde einfach nicht heraus, wie ich das Script modifizieren muss, wenn ich Fulldrag nutzen will.

Mein Ansatz ist:

Delphi-Quellcode:

  if _ColumnToSort = 0 then
  begin
    TextToSort1 := Item1.Caption;
    TextToSort2 := Item2.Caption;
  end
  else
  begin
    TextToSort1 := Item1.SubItems[TListView(Sender).Column[_ColumnToSort].ID - 1];
    TextToSort2 := Item2.SubItems[TListView(Sender).Column[_ColumnToSort].ID - 1];
  end;

Nur aus nicht erklärlichen Gründen kommt es vor, daß ID Werte enthält, die größer sind als die Anzahl an Spalten.

Hat jemand eine Lösung?

Gruß
Thomas