[ Исходник ] - TSimpleDragDrop: Drag & Drop файлов из программы в Проводник
Описание:
Невизуальный компонент TSimpleDragDrop. Реализует Drag & Drop файлов из программы в Проводник Windows.
Версия Delphi:
7
Свойства:
DropEffects: TDropEffects - определяет какие операции доступны: копирование, ссылка, перемещение
Методы:
function DragDrop(Directory: String; AFileName: String): Integer; overload;
function DragDrop(Directory: String; AFileList: TStrings): Integer; overload;
Первый работает с одним файлом, второй со списком.
Directory указывает на каталог в котором находятся файлы. AFileName и AFileList содержат имена файлов.
Возвращаемое значение:
Результат операции:
0 - отменено пользователем (нажал Esc) = DROPEFFECT_NONE
1 - файл скопирован = DROPEFFECT_COPY
2 - файл перемещен. Если поддерживает источник, то исходный файл будет удален = DROPEFFECT_MOVE
4 - создана ссылка на файл = DROPEFFECT_LINK
Пример:
В FileListBox отображаются *.jpg файлы, которые собственно и можно перетаскивать.
__________________
Пишу программы за еду.
__________________
|