Von Thomas Hölzer am 24 März, 1998 um 23:42:09:
Antwort auf: Profan² und Drag&Drop von Sven Schmidts am 24 März, 1998 um 17:34:47:
Ja, es geht, und ist gar nicht so schwierig.
Anbei ein komplettes Beispiellisting
MfG
Thomas
' Drag&Drop Beispiel mit Profan 6.0 (32 Bit)
' (C) 1998 Thomas Hölzer, thoelzer@cww.de
' http://prfellow.home.pages.de
' http://members.freepage.de/thoelzer/homepage.htm
DEF DragAcceptFiles(2) !"SHELL32","DragAcceptFiles"
DEF DragFinish(1) !"SHELL32","DragFinish"
DEF DragQueryFile(4) !"SHELL32","DragQueryFileA"
declare ende%,i%,Anzahl&,PFilenames#,FileName$,Max_Path%
Dim PFileNames#,261 ' Max_Path +1, Vorsicht bei Profan-Strings (nur 255 Zeichen!)
Window 300,100-500,400
DragAcceptFiles(%hwnd,1)
WhileNot ende%
GetMessage
IF equ(%message,563)
let anzahl&= DragQueryFile(&WParam,$FFFFFFFF,PFilenames#,261);
let i%=0
While lt(i%,anzahl&)
DragQueryFile(&WParam,i%, PFilenames#,261);
Let filename$=@String$(PFilenames#,0) ' Vorsicht, max 255 Zeichen
AddString filename$
Inc i%
Wend
DragFinish(&WParam);
Listbox$(@add$(str$(anzahl&)," Drag&Drop-Datei(en)"),2)
Clearlist
Elseif Equ(%mousekey,2)
let ende%=1
EndIf
Wend
Dispose PFileNames#
DragAcceptFiles(%hwnd,0)
End