Delphi Listview nach erfolgreichem Multiselect neu sorteiren

Thema durchsuchen

Ansicht

Themen-Optionen

Listview nach erfolgreichem Multiselect neu sorteiren

Ein Thema von joredue · begonnen am 24. Aug 2004 · letzter Beitrag vom 24. Aug 2004

Vorheriger Beitrag

Nächster Beitrag

Keldorn

Registriert seit: 6. Mär 2003
Ort: Meißen
876 Beiträge

Delphi 10.1 Berlin Professional

Re: Listview nach erfolgreichem Multiselect neu sorteiren

24. Aug 2004, 12:31

probiers mal so

markieren

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

Lükes Grundlage der Programmierung:
Es wird nicht funktionieren
(Murphy)