![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
#$# PaVeL #$# |
![]() ![]()
Сообщение
#1
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 91 Пол: Мужской Реальное имя: Павел Репутация: ![]() ![]() ![]() |
Как осуществить следующие действия с компонентом TListView:
1. Drag&Drop из одного TListView в другой. 2. Перемещение одной сторчки (TListItems) на другую позицию 3. Связать со строчкой (TListItems) объект, и(или) запись. Заранее благодарен! Сообщение отредактировано: #$# PaVeL #$# - 19.03.2006 12:44 |
![]() ![]() |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
Цитата 1. Drag&Drop из одного TListView в другой. Смотри DRKB -> VCL -> "Перетаскивание объектов, Drag and Drop, Docking" -> "Примеры использования Drag and Drop для различных визуальных компонентов" В том числе рассматриваются и TListView |
#$# PaVeL #$# |
![]() ![]()
Сообщение
#3
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 91 Пол: Мужской Реальное имя: Павел Репутация: ![]() ![]() ![]() |
Спасибо!, А как насчёт пункта 2 и 3?
|
volvo |
![]()
Сообщение
#4
|
Гость ![]() |
Ну, допустим, второй вопрос реализуется точно так же, как первый:
procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer; Я сейчас попробовал - переносит и ветки и отдельные Item-ы в другое место этого же TListView как и положено... |
#$# PaVeL #$# |
![]() ![]()
Сообщение
#5
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 91 Пол: Мужской Реальное имя: Павел Репутация: ![]() ![]() ![]() |
Спасибо!
![]() Может сразу контрольный в голову, для этой темы(пункт 3)? ![]() ![]() |
Гость |
![]()
Сообщение
#6
|
Гость ![]() |
связать с объектом определенные данные -
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; |
![]() ![]() |
![]() |
Текстовая версия | 13.07.2025 8:26 |