DELPHI/Часто задаваемые вопросы и ответы на них/Компоненты



На главную

Подписка

Новости

Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Компоненты / Поменять местами пункты ListView

Поменять местами пункты ListView
Армянсое радио спрашивают:
- Почему Билл Гейтс такой удачливый и богатый?
- Потому, что каждый его МАТЕРИТ!
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();  
}  
Copyright © "DELPHI WORLD" E-mail: delphiworld@mail.ru http://www.delphiworld.narod.ru

Источник получения информации: http://www.delphiworld.narod.ru