TlistView Spalten sortieren

[skorsi]

Nee sorry das Sortieren läuft nur irgendwie sau langsam ab.

[sakura]

Na gut, dann solltest Du es mal noch wie folgend erweitern - viele Items hast Du eigentlich :shock:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  [color=#ff0000]ListView1.Items.BeginUpdate;
  try[/color]
    for I := 0 to Pred(ListView1.Columns.Count) do
      ListView1.Columns.FindItemID(I).Index := I;
    ListView1.Refresh;
  [color=#ff0000]finally
    ListView1.Items.EndUpdate;
  end;[/color]
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  [color=#ff0000]ListView1.Items.BeginUpdate;
  try[/color]
    ListView1.Columns.FindItemID(1).Index := 0;
    ListView1.Columns.FindItemID(2).Index := 1;
    ListView1.Columns.FindItemID(0).Index := 2;
    ListView1.Refresh;
  [color=#ff0000]finally
    ListView1.Items.EndUpdate;
  end;[/color]
end;

...:cat:...

[skorsi]

Vielen Dank!!!!!!! :-D

Wenn man danach noch einen Refresh aufruft funktioniert alles problemlos!!!!!

[sakura]

Super, das freut mich :-) Dann viel Spass weiterhin mit Delphi - auf das wir uns bald wiederlesen.

War ja eine schwere Geburt aber erfolgreich :mrgreen:

...:cat:...