Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 1 марта!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



перетаскивать файлы в свою программу

Большинство программ, предназначенных для работы с текстом, предоставляют пользователю возможность перетаскивать файлы в свою программу, а мы что лысые... :-)) ...щас тоже организуем:
Подключаем модуль ShellAPI в области uses
По созданию окна [событие OnCreate] пишем такой код:
DragAcceptFiles(Handle,True);

Когда вы перетаскиваете файл на своё приложение и отпускаете кнопку мыши, Windows посылает этому окну сообщение wm_DropFiles. Сообщение сопровождается именем файла. Обработчик этого сообщения нужно включить в раздел protected класса формы. Вставьте следующий код:
protected
procedure WMDropFiles (var Msg: TMessage); message wm_DropFiles;

после

private
{ Private declarations }
public
{ Public declarations }

Далее обрабатываем сообщение:
procedure TForm1.WMDropFiles(var Msg: TMessage);
Var
FileName: array[0..256] of char;
begin
DragQueryFile(THandle(Msg.WParam),0,FileName,SizeOf(Filename));
Memo1.lines.loadfromfile(FileName);
DragFinish(THandle(Msg.WParam));
end;

Сначала а переменную FileName помещаем имя перетаскиваемого файла. Затем загружаем его в поле Memo [не забудьте его вынести :-)]



--------------------------------------------------------------------------------




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS