Скачать: CL | DM;

Перетащить файл в свою программу   Найти похожие ветки 

← →
Nikfel ©   (2007-08-24 12:34) [0]

Подскажите пожалуйста. Как с помощью мыши перетаскивать файлы в свою программу с получением полного пути к файлу. Многие программы обладают этой возможностью, но как это делается не знаю. Заранее спасибо.

---

← →
Eraser ©   (2007-08-24 13:11) [1]

http://www.google.ru/search?hl=ru&q=delphi+%D0%BF%D0%B5%D1%80%D0%B5%D1%82%D0%B0%D1%89%D0%B8%D1%82%D1%8C+%D1%84%D0%B0%D0%B9%D0%BB+%D0%B2+%D0%BF%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0%BC%D0%BC%D1%83&btnG=%D0%9F%D0%BE%D0%B8%D1%81%D0%BA+%D0%B2+Google&lr=

---

← →
Anatoly Podgoretsky ©   (2007-08-24 13:37) [2]

> Nikfel  (24.08.2007 12:34:00)  [0]

Этой возможностью обладаю все программы, поскольку это реализуется не программой, а ОС

---

← →
alshtam ©   (2007-08-24 13:41) [3]

ищи в сторону drag&drop

---

← →
capkoh ©   (2007-08-24 14:25) [4]

Нужно установить extended стиль окна WS_EX_ACCEPTFILES, и обрабатывать сообщение WM_DROPFILES. Внутри обработчика можно достать полный путь. Работает и с группой файлов, конечно.

---

← →
clickmaker ©   (2007-08-24 14:33) [5]

DragAcceptFiles(Form.Handle, true) - альтернатива WS_EX_ACCEPTFILES

---

← →
Nikfel ©   (2007-08-27 13:15) [6]

Посмотрите ссылку ниже, никак не могу понять код.
http://articles.org.ru/cfaq/index.php?qid=285&frommostrecent=yes
В коде откуда берется dragacceptfiles,dragqueryfile,dragfinish. У меня нет таких функций и процедур. Возможно надо установить стиль окна WS_EX_ACCEPTFILES, но как установить такой стиль не понятно.

---

← →
Сергей М. ©   (2007-08-27 13:20) [7]

uses ShellAPI

---

← →
Nikfel ©   (2007-08-27 13:50) [8]

Почему не выполняется procedure wmdropfiles. Видно я что-то упустил.

---

← →
clickmaker ©   (2007-08-27 13:51) [9]

> [8] Nikfel ©   (27.08.07 13:50)

см. [5]

---

← →
Anatoly Podgoretsky ©   (2007-08-27 13:57) [10]

> Почему не выполняется procedure wmdropfiles. Видно я что-
> то упустил.

Видимо

---

← →
Nikfel ©   (2007-08-27 14:10) [11]

Всем большое спасибо. Вроде разобрался. Вставил в FormActivate код:
showwindow(form1.Handle,WS_EX_ACCEPTFILES);
dragacceptfiles(form1.handle, true);
Теперь все работает.

---

← →
clickmaker ©   (2007-08-27 14:30) [12]

> showwindow(form1.Handle,WS_EX_ACCEPTFILES);

это зачем? WS_EX_ACCEPTFILES - стиль, а не вид отображения
достаточно 2-й строчки

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.024 c