Работа с Tlistview Опции

[#$# PaVeL #$#]

Как осуществить следующие действия с компонентом TListView:
1. Drag&Drop из одного TListView в другой.
2. Перемещение одной сторчки (TListItems) на другую позицию
3. Связать со строчкой (TListItems) объект, и(или) запись.


Заранее благодарен!

Сообщение отредактировано: #$# PaVeL #$# - 19.03.2006 12:44

[#$# PaVeL #$#]

Спасибо!
Может сразу контрольный в голову, для этой темы(пункт 3)?

[Гость]

связать с объектом определенные данные -

var
__filename:integer; //это номер строки в tstringlist
Lit: TListItem;


Lit:= AppsList.Items.Add;
Lit.Data:= pointer(__filename);


и потом использовать:

procedure TForm1.AppsListDblClick(Sender: TObject);
begin
if AppsList.Selected = nil then EXIT;

ShellExecute(0,
nil,
pchar(
ExeList.Strings[ integer(AppsList.Selected.Data) ]
),
nil,
nil,
sw_restore);

end;