Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Keldorn,
24. Aug 2004
probiers mal so
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...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Keldorn,
24. Aug 2004
Hallo
das listview mit alphasort sortieren. Bei dem oncompare-ereignis vergleichst du dann statt der caption/subitems die Selected eigenschaft.
Wenn es auch wieder rücksortiert werden muß: entweder du hast eine durchgehende Nummerierung oder du mußt dir dises schaffen, z.B. in dem du die data-eigenschaft des listitems nutzt.
Mfg Frank