Текущий архив: 2003.06.05;
Скачать: CL | DM;

Вниз

Как поменять местами узлы в TListView?   Найти похожие ветки 

← →
Delph1   (2003-05-26 10:46) [0]

Спасибо.

---

← →
Roma ©   (2003-05-26 11:04) [1]

Примерно так (отрывок из старого проекта):

procedure ChangeListItems(ListView: TListView; ListItem1,
ListItem2: TListItem);
var
ListItem: TListItem; // применяется для промежуточного
// хранения обмениваемых данных
begin
try
ListView.Items.BeginUpdate;
ListItem := TListItem.Create(ListView.Items);
try
// Обмен (с помощью промежуточной переменной)
ListItem.Assign(ListItem1);
ListItem1.Assign(ListItem2);
ListItem2.Assign(ListItem);

// Переведем фокус (если нужно)
ListItem2.Selected := True;
finally
ListItem.Free;
end; // finally
except
on E: Exception do
MessageDlg(E.Message, mtError, [mbOk], 0);
end; // except

ListView.Items.EndUpdate;
end;

Возможно, не самый оптимальный вариант...

---

Страницы: 1 вся ветка

Текущий архив: 2003.06.05;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.02 c