|
|
|
WEB-БИБЛИОТЕКА |
|
Для просмотра сайта
рекомендуется :
-Разрешение : 800*600 -Броузер : Internet Explorer -Для более эффективного просмотра нажмите F11. |
Использование мыши при работе с файлами
(или, как перетаскивать файлы в свою программу)
Первое, что вы должны сделать, - сообщить системе Windows о том, что ваша программа готова обрабатыватьфайлы, перемещенные из другого приложения с помощью мыши. Для этого достаточно включить в обработчик события OnCreate формы следующее выражение: DragAcceptFiles(Handle,True); Кроме того вы должны указать модель ShellAPI в директиве uses.
protected
procedure TForm1.WMDropFiles(var Msg: TMessage); DragQueryFile(THandle(Msg.WParam),0,Filename,SizeOf(Filename)); {Например: Загрузить его в Memo} {Сообщаем об окончании претаскивания} |
Сайт основан 20.02.2003
Использование материалов возможно только при ссылке на webbibl.narod.ru
Статьи, программы и изображения принадлежат их авторам.