Ich benutze diese Prozedur um Items in einer ListView nach oben und nach unten zu verschieben. Die Eigenschaft Checkboxes ist auf True. Mein Problem ist, wenn ich ein Item mit Häckchen verschiebe ist alles in ordnung, verschiebe ich aber ein Item ohne Häkchen auf ein Item mit Häckchen verschwinden alle anderen Häckchen auser das Häckchen von dem soeben verschobenen Item.

Habe ein kleines Beispielprojekt erstellt, dass mein Problem vielleicht etwas einfacher darstellt:

Beispiel-Projekt

zusammenfalten · markieren

Delphi-Quellcode:

procedure MoveItems(AListView: TListView; Up: Boolean = True);
var
  OldItem, NewItem: TListItem;
  AIndex: Integer;
begin
  Assert(Assigned(AListView));
  with AListView do
  begin
    Items.BeginUpdate;
    try
      OldItem := TListItem.Create(Items);
      try
        OldItem.Assign(Selected);
        if Up then
          AIndex := Selected.Index - 1
        else
          AIndex := Selected.Index + 1;
        if not AIndex in [0..Items.Count - 1] then
          Exit;
        Selected.Delete;
        NewItem := Items.Insert(AIndex);
        NewItem.Assign(OldItem);
        Selected := NewItem;
      finally
        OldItem.Free;
      end;
    finally
      Items.EndUpdate;
    end;
  end;
end;

[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]

Hab mir dieses Assign mal angeschaut und rausgefunden dass es an folgender Anweisung liegt:

markieren

Code:

OldItem.Checked := Selected.Checked;

Hab zwar bis jetzt noch net gerafft wie und wieso des net geht, aber ich hab die prozedur ein bisschen modifiziert und so funkt es jetzt.

zusammenfalten · markieren

Delphi-Quellcode:

{*********************************************************}
{ Einzelne ListView Items nach oben und unten verschieben }
{*********************************************************}
procedure MoveItems(AListView: TListView; Up: Boolean = True);
var
  OldItem, NewItem: TListItem;
  AIndex: Integer;
  ItemChecked: boolean;
begin
  Assert(Assigned(AListView));
  with AListView do
  begin
    Items.BeginUpdate;
    try
      OldItem := TListItem.Create(Items);
      try
        OldItem.Caption := Selected.Caption;
        OldItem.Data := Selected.Data;
        OldItem.ImageIndex := Selected.ImageIndex;
        OldItem.Indent := Selected.Indent;
        OldItem.OverlayIndex := Selected.OverlayIndex;
        OldItem.StateIndex := Selected.StateIndex;
        OldItem.SubItems := Selected.SubItems;
        if Selected.Checked then
          ItemChecked := true
        else
          ItemChecked := false;
        if Up then
          AIndex := Selected.Index - 1
        else
          AIndex := Selected.Index + 1;
        if not AIndex in [0..Items.Count - 1] then
          Exit;
        Selected.Delete;
        NewItem := Items.Insert(AIndex);
        NewItem.Assign(OldItem);
        NewItem.Checked := ItemChecked;
        Selected := NewItem;
      finally
        OldItem.Free;
      end;
    finally
      Items.EndUpdate;
    end;
  end;
end;