Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Перетащить файл в свою программу [D7]

Nikfel © (2007-08-24 12:34:00)
Подскажите пожалуйста. Как с помощью мыши перетаскивать файлы в свою программу с получением полного пути к файлу. Многие программы обладают этой возможностью, но как это делается не знаю. Заранее спасибо.

clickmaker (2007-08-27 14:30:00) [1]

> showwindow(form1.Handle,WS_EX_ACCEPTFILES);

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

Nikfel (2007-08-27 14:10:00) [2]
Всем большое спасибо. Вроде разобрался. Вставил в FormActivate код:
showwindow(form1.Handle,WS_EX_ACCEPTFILES);
dragacceptfiles(form1.handle, true);
Теперь все работает.

Anatoly Podgoretsky (2007-08-27 13:57:00) [3]

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

Видимо

clickmaker (2007-08-27 13:51:00) [4]

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

см. [5]

Nikfel (2007-08-27 13:50:00) [5]
Почему не выполняется procedure wmdropfiles. Видно я что-то упустил.

Сергей М. (2007-08-27 13:20:00) [6]
uses ShellAPI

Nikfel (2007-08-27 13:15:00) [7]
Посмотрите ссылку ниже, никак не могу понять код.
http://articles.org.ru/cfaq/index.php?qid=285&frommostrecent=yes
В коде откуда берется dragacceptfiles,dragqueryfile,dragfinish. У меня нет таких функций и процедур. Возможно надо установить стиль окна WS_EX_ACCEPTFILES, но как установить такой стиль не понятно.

clickmaker (2007-08-24 14:33:00) [8]
DragAcceptFiles(Form.Handle, true) - альтернатива WS_EX_ACCEPTFILES

capkoh (2007-08-24 14:25:00) [9]
Нужно установить extended стиль окна WS_EX_ACCEPTFILES, и обрабатывать сообщение WM_DROPFILES. Внутри обработчика можно достать полный путь. Работает и с группой файлов, конечно.

alshtam (2007-08-24 13:41:00) [10]
ищи в сторону drag&drop

Anatoly Podgoretsky (2007-08-24 13:37:00) [11]
> Nikfel (24.08.2007 12:34:00) [0]

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

Eraser (2007-08-24 13:11:00) [12]
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=

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »