Hallo Frank.
Danke für den Hinweis, aber ich stehe voll auf dem Schlauch.
Das habe ich dazu in der
OH gefunden
Delphi-Quellcode:
procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);
var
ix: Integer;
begin
if ColumnToSort = 0 then
Compare := CompareText(Item1.Caption,Item2.Caption)
else begin
ix := ColumnToSort - 1;
Compare := CompareText(Item1.SubItems[ix],Item2.SubItems[ix]);
end;
end;
Meine Meinung nach müsste ich irgendwie hier landen
compare := Compare(ListView2.Selected.Index[ix], Item2.ListView.Selected.Index[ix]);
Kriegs einfach nicht hin.
CU Achim