Форум: "Основная";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];
ВнизКак поменять местами узлы в 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c