Listview nach erfolgreichem Multiselect neu sorteiren

[Keldorn]

probiers mal so

Delphi-Quellcode:

procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
begin
  compare := 0;
  if (item1.Selected) and not(item2.Selected) then compare := -1;
  if not(item1.Selected) and (item2.Selected) then compare := 1;
end;

ix ist die Spalte, nach der sortiert weden soll, das brauchst du nicht. du mußt die item1 und item2 vergleichen, nicht die listview.selected eigenschaft.

Mfg Frank