Армянсое радио спрашивают:
- Почему Билл Гейтс такой удачливый и богатый?
- Потому, что каждый его МАТЕРИТ!
void __fastcall TForm1::SwapLVItems(int a, int b)
{
int New;
ListView1->Items->BeginUpdate();
{
ListView1->Items->Add();
New = ListView1->Items->Count - 1;
ListView1->Items->Item[New] = ListView1->Items->Item[a];
ListView1->Items->Item[a] = ListView1->Items->Item[b];
ListView1->Items->Item[b] = ListView1->Items->Item[New];
ListView1->Items->Delete(New);
}
ListView1->Items->EndUpdate();
}
Статья Поменять местами пункты ListView раздела Компоненты и Классы TListView может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.