Полезное для программистов:

Фриланс
Новости
Статьи
   
Рубрики:


Как переместить элемент в ListView?

Поиск:
Код

procedure Exchange(WinLV: DWord; Index1,Index2:integer);
var In1,In2:tagLVItemA;
   s1,s2:array [0..1024] of Char;
begin
 FillChar(In1,SizeOf(In1),#0);
 In1.mask:=DWord(-1);
 CopyMemory(@In2,@In1,SizeOf(In1));
 In1.iItem:=Index1;
 In1.pszText:=PChar(@s1);
 In2.iItem:=Index2;
 In2.pszText:=PChar(@s2);
 ListView_GetItem(WinLV,In1);
 ListView_GetItem(WinLV,In2);
 In1.iItem:=Index2;
 In2.iItem:=Index1;
 ListView_SetItem(WinLV,In1);
 ListView_SetItem(WinLV,In2);
end;

Использование:
Код

Exchange(ListView1.Handle,0,2);


Автор: Girder


Код

function DragItemInLV(LV: TListView; CurIndex, NewIndex: Integer): Boolean;
var
 i: Integer;
 lstDrag: TListItem;
begin
 Result:= False;
 i:= LV.Items.Count-1;
 if (CurIndex = -1) or (NewIndex = -1) then exit;
 if (CurIndex > i ) or (NewIndex > i ) then exit;
 lstDrag:= TListItem.Create(LV.Items);
 try
   lstDrag           .Assign(LV.Items[NewIndex]);
   LV.Items[NewIndex].Assign(LV.Items[CurIndex]);
   LV.Items[CurIndex].Assign(lstDrag           );
 finally
   lstDrag.Free;
 end;
 Result:= True;
end;


Использование:
Код

DragItemInLV(ListView1,0,2);


Автор: Alex
Автор: Girder & Alex






Просмотров: 2781

 

 

Новые статьи:


Популярные:
  1. Как сделать цикличным проигрывание MIDI-файла?
  2. Создание AVI файла из рисунков
  3. Как устройство "отключить в данной конфигурации"?
  4. Kто в данный момент присоединен через Сеть?
  5. Как узнать количество доступной памяти?
  6. Как реализовать в RichEdit разноцветный текст?
  7. Как скрыть свое приложение от ProcessViewer
  8. Как программно нажать/скрыть/показ кнопку "Start"?
  9. Модуль работы с ресурсами в PE файлах
10. Функции вызова диалоговых окон выбора
11. Проверка граматики средствами Word'а из Delphi.
12. Модуль для упрощенного вызова сообщений
13. Функции для записи и чтение своих данных в, ЕХЕ- файле
14. Рекурсивный просмотр директорий
15. Network Traffic Monitor
16. Разные модули
17. Универсальная функция для обращения к любым экспортируем функциям DLL
18. Библиотека от VladS
19. Протектор для UPX'а
20. Еще об ICQ, сообщения по контакт листу?
21. Использование открытых интерфейсов
22. Теория и практика использования RTTI
23. Работа с TApplication
24. Примеры использования Drag and Drop для различных визуальных компонентов
25. Что такое порт? Правила для работы с портами
26. Симфония на клавиатуре
27. Загрузка DLL
28. Исправление автоинкремента
29. Взаимодействие с чужими окнами
30. Проверить дубляжи в столбце


 

 

 
 
На главную