TlistView Spalten sortieren

[sakura]

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

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;

......