Drag and Drop

[Lumen]

Привет!
Народ, подскажите, пожалуйста, как реализовать Drag and Drop в моей программе. Я понимаю, что боян, но всё-таки: поиск по функции DragQueryFile выдал два реультата, ни один из которых не подходит. Пытался сам сделать - ничего не выходит (форма не грузится). Объясните, плиз, что я делаю не так...

[added]

Немного исправил код, но всё равно не работает. Точнее количество "брошенных" файлов показывает, а имена файлов нет. Уважаемые гуру, помогите, плиз, разобраться. Очень надо...

[новая версия ниже]

[tyomitch]

Это потому, что искать надо по слову OleDragDrop

[Хакер]

Классно реализован сабклассинг

А вообще что ты хотел сделать? Перетаскивание файлов на форму? так для этого не надо никаких API

[Lumen]

Я знаю, что можно сделать то же самое, установив свойство формы OLEDropMode = 1 и в событии OLE_DragDrop (...) написать что-то типа

Код: Выделить всё

Msgbox Data.Files(i)

, где i - номер перетаскиваемого файла, но у меня такая сложность: на форме (не в том примере, что я кинул, там только моя реализация Drag'nDrop ) много контролов (frame'ы, label'ы и кнопки), которые закрывают форму. Можно конечно было бы прописать в обработчиках события OLEDragDrop всех этих элементов управления выше приведённый код, но не хотелось бы. Тем более, что я делал Drag'n'Drop через API, но, к сожалению, исходники той программы безвозвратно утеряны. Если не сложно, подскажите, пожалуста, как действовать в моём примере...

[Хакер]

Для начала объяви константы и сделай функцию WindowProc

[Lumen]

Константы и функция в модуле..

[Хакер]

Дико извиняюсь, открыл форму сразу из архива - модуль не заметил...

Классно реализован сабклассинг

Тогда это предложение не имеет смысла

[Lumen]

Хакер
Нет, кстати предложение имеет смысл , поскольку сабклассинг не реализован (может он и реализован, но результат реализации не устраивает...). Не подскажешь, как можно сделать в моем случае. Или если есть готовый пример, скинь пожалуйста сюда или на мыло, а то я два дня тр...сь с этой проблемой и не могу вспонить, как я раньше делал подобное...

[Хакер]

я два дня тр...сь с этой проблемой

даже не знаю как это назвать.... траблафил что ли

Ну... я бы на самом деле юзал обычный способ. Просто ести тебе нужно перетащить файл, то имеет смысл сделать целевой контрол, который будет ловит файл (т.е. если например это текстовый редактор - то ловаить файл должно только поле ввода. а всякие там тулбоксы и меню -- соотв. не должны.) вот такая простая логика


Возьми к примеру создателей виндозы -- надо перетащить иконку в панель быстрого запуска. И ведь толко быстрый запуске принимает файлы - ни кнопка пуск, ни трей - они просто игнорируют драгндроп.

Прим. (в ХП пуск всё-таки ловит файлы и помещает их в верхушку меню.)

[Lumen]

А как сделать, чтобы вся форма, независимо от того на какой контрол брошены файлы, принимала их. В прошлый раз я делал, приблизительно так, как в примере, за одним исключением, что там работало, а здесь нет. Подскажите кто-нить, что я делаю неправильно... Где ошибка кроме, как в ДНК?
ЗЫ: Вот та прога, где я подобное делал

[Хакер]

у тебя что там 320 контроллов, что тебе влом на все евенты навешать?

Где ошибка кроме, как в ДНК?

в РНК

[Nicky]

Прим. (в ХП пуск всё-таки ловит файлы и помещает их в верхушку меню.)

В 98 тоже ловит, и можно поместить куда угодно, не только в верхушку

[Lumen]

Кое-что исправил, но все равно не выходит. Посмотрите, пожалуста, подскажите, что сделать...
Аттач там же.

[Lumen]

Хакер
Количество контролов на форме - 78. Все равно влом прописывать 78 лишних event'ов. Легче один обработчик события сделать.

Покурил MSDN, вроде исправил, теперь работает. Вот работающий код: