Code:

// Move item 1 after item 4

 

function MoveListViewItem(listView: TListView; ItemFrom, ItemTo: Word): Boolean;

var

  Source, Target: TListItem;

begin

  Result := False;

  listview.Items.BeginUpdate;

  try

    Source := listview.Items[ItemFrom];

    Target := listview.Items.Insert(ItemTo);

    Target.Assign(Source);

    Source.Free;

    Result := True;

  finally

    listview.Items.EndUpdate;

  end;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  // Listview1.ViewStyle := vsReport;

if MoveListViewItem(Listview1, 1, 4) then

    ShowMessage('Moved!');

end;

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить