Delphi — перетаскивание файлов .txt в TMemo

Я пытаюсь перетащить текстовые файлы в memo1 моего приложения Delphi и загрузить текст. Точно так же, как это делает notepad.exe! при перетаскивании любого файла он загружает текст внутри него. но я пытаюсь загрузить только указанное расширение файла! принять нагрузку на memo1.text.

Пример: при перетаскивании text.txt файла в memo1 загружается текст внутри test.txt, но при перетаскивании .exe в memo1 ничего не происходит или просто отображается сообщение об ошибке.

Я искал Google и пытался сам, но у меня нет ответов на мой вопрос; c.

любая помощь будет высоко оценена, так как я понятия не имею о перетаскивании текста в заметку.


drag-and-drop delphi tmemo
person M0HX    schedule 05.10.2014    source источник
comment
как мой вопрос дурак ;c ? Я не думаю, что это дублируется, я надеюсь, что кто-нибудь ответит мне, ребята.   -  person M0HX    schedule 05.10.2014
comment
Используйте код в принятом ответе и реализуйте DropAllowed, проверив расширение файла. По сути, этот вопрос просто спрашивает, как реализовать цель перетаскивания.   -  person David Heffernan    schedule 05.10.2014
comment
это просто сложно ;c не могли бы вы привести пример. я хочу просто перетащить любой файл для загрузки в memo1. просто используйте события ondragover и ondragdrop, если это возможно. Я пытаюсь научиться этому, но я понятия не имею, как   -  person M0HX    schedule 05.10.2014
comment
Похоже, вы недостаточно опытны, чтобы кодировать это самостоятельно. В этом случае компонент полезен. Посмотрите на другие ответы на обман. Одна ссылка на этот компонент: melander.dk/delphi/dragdrop   -  person David Heffernan    schedule 05.10.2014
comment
Я попробовал этот компонент, и, похоже, он не работает с xe. Я также пытался использовать его с D7, и все то же самое. Кстати, я использую windows8.1, и да, я все еще новичок и не могу написать код сам, хм;   -  person M0HX    schedule 06.10.2014
comment
Я думаю, вам нужно продолжать пытаться   -  person David Heffernan    schedule 06.10.2014
comment
Этот компонент поставляется с исходным кодом. Вы можете составить его самостоятельно. Этот парень задокументировал, как это сделать для XE2: grahamwideman.wikispaces.com/ Перетащите+и+бросьте+для+Delphi+XE2   -  person David Heffernan    schedule 06.10.2014