procedure ExchangeItems(lv: TListView; const i, j: Integer);
var
tempLI: TListItem;
begin
lv.Items.BeginUpdate;
try
tempLI := TListItem.Create(lv.Items);
tempLI.Assign(lv.Items.Item);
lv.Items.Item.Assign(lv.Items.Item[j]);
lv.Items.Item[j].Assign(tempLI);
tempLI.Free;
finally
lv.Items.EndUpdate
end;
// Взято с сайта: http://www.swissdelphicenter.ch
end;
Listview - колонки
Здравствуйте! Подскажите пожалуйста как программно поменять местами колонки в listview во время работы программы?
Добвресу, только что увидел тему, но может ещё актуально
Нужно воспользоваться методом Assign класса TListItem:
Как использовать : вызываем ExchangeItems
(lv, - лист, где надо поменять колонки
i, - "шило" - колонка
j); - "мыло" - колонка
Нужно воспользоваться методом Assign класса TListItem:
Код:
Как использовать : вызываем ExchangeItems
(lv, - лист, где надо поменять колонки
i, - "шило" - колонка
j); - "мыло" - колонка