Hallo DeddyH,
wie Du es beschrieben hast funktioniert es jetzt auch bei mir.
Mein Fehler lag in der ListView1ColumnClick. Dort hatte ich cssAlphaNum und cssNumeric nicht richtig eingesetzt. Man muss halt darauf achten welche Spalten der ListView numerische oder alphanumerische Werte enthalten und den LvSortStyle entsprechend setzen.
Danke für den Beitrag
Gruß okoeller
Delphi-Quellcode:
procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn);
begin
// ListView1.CustomSort(@CustomSortProc, 0);
if Column.Index = 0 then
LvSortStyle := cssNumeric
else
LvSortStyle := cssAlphaNum;
ListView1.CustomSort(@CustomSortProc, Column.Index-1);
LvSortOrder[Column.Index] := not LvSortOrder[Column.Index];
end;