Listview nach erfolgreichem Multiselect neu sorteiren

[joredue]

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