[delphi] Drag on Drop z pulpitu

Powiedzmy, że gdy zostanie z pulpitu przeniesiony plik *.txt do memo1 to, żeby w tym memo1 otworzył się ten plik tzw. "Drag on Drop". Więc jak to zrobić ?? Z góry dzięki

Musisz odpowiednio obsłużyć komunikat WM_DROPFILES.
Pomocnefunkcjei procedury
DragAcceptFiles
DragQueryPoint
DragQueryFile
DragFinish: ShellApi

Na googlach na pewno coś znajdziesz a na stronie Microsorftu na pewno jakiś przykład.

po 1. nie "drag on drop" tylko "drag AND drop"
po 2. juz bylo, nie szukales :-P
po 3. http://www.swissdelphicenter.ch/torry/showcode.php?id=2335
http://www.swissdelphicenter.ch/torry/showcode.php?id=493
lub po 4. http://www.torry.net/quicksearchd.php?String=drag&Title=Yes