Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
2 - PROFAN-Programmierung

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Re: Kein Drag, aber Drop (von Files) mit XProfan
Autor: Heinz Brill (---.dip0.t-ipconnect.de)
Datum:   24.12.21 19:11

Geht ja auch ohne SubClassing, also nur mit USERMESSAGE.
 'Drag und Drop mit dem Explorer
 $H messages.ph
 
 Def DragAcceptFiles(2) !"SHELL32","DragAcceptFiles"
 Def DragFinish(1) !"SHELL32","DragFinish"
 Def DragQueryFile(4) !"SHELL32","DragQueryFileA"
 
 Declare Handle ME, ende%,i%,Anzahl&,PFilename#,FileName$
 Dim PFileName#,461
 Window 600, 600
 WindowTitle "Drag&Drop-Beispiel"
 ME = Create("MultiEdit", %HWnd, "Hier mit dem Windows-Explorer eine Textdatei droppen.", 10, 10, Width(%HWnd) - 40, Height(%HWnd) - 120)
 DragAcceptFiles(%HWnd, 1)
 
 UserMessages ~WM_DROPFILES '563
 
 ende% = 0
 
 WhileNot ende%
 
     WaitInput
 
     IF %UMessage = ~WM_DROPFILES
           anzahl& = DragQueryFile(&WParam, $FFFFFFFF, PFilename#, 461)
           i% = 0
           While i% < anzahl&
              DragQueryFile(&WParam, i%, PFilename#, 261)
              filename$ = String$(PFilename#, 0)' Vorsicht, max 255 Zeichen
              SetText ME, ""
              CLearList
              Move("FileToList", filename$)
              Move("ListToHandle", ME)
              Inc i%
              DragFinish(&WParam)
           EndWhile
     Elseif %mousekey = 2
 
         ende%=1
 
     EndIf
 
 Wend
 
 Dispose PFileName#
 DragAcceptFiles(%HWnd, 0)
 End
 


H.Brill
XProfan X4 + FreeProfan

Nachricht bearbeitet (24.12.21 19:13)

 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 Kein Drag, aber Drop (von Files) mit XProfan  Neu
Jens-Arne Reumschüssel 23.12.21 22:42 
 Re: Kein Drag, aber Drop (von Files) mit XProfan  Neu
Heinz Brill 24.12.21 19:11 
 Re: Kein Drag, aber Drop (von Files) mit XProfan  Neu
Jens-Arne Reumschüssel 29.12.21 17:58 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org