Drag&Drop: Files auf Fenster werden nicht erkannt

[Delle]

Hallo,

bei mir liefert er immer nur "0" als Ergebnis zurück, egal ob ich nun 1 oder 10 Dateien auf das Fenster ziehe:

Code: Alles auswählen

EnableWindowDrop(0, #PB_Drop_Files, #PB_Drag_Copy|#PB_Drag_Move|#PB_Drag_Link)

...

Code: Alles auswählen

If EventID=#PB_Event_WindowDrop And EventWindow()=0

Select EventGadget()

Case 0
Files$ = EventDropFiles()
Count  = CountString(Files$, Chr(10)) + 1

EndSelect
    
MessageRequester("",Str(Count),0)
   
EndIf

Hab ich nen Fehler drin oder ...?

[Kiffi]

@Delle: Wenn Du Dein Fenster mit EnableWindowDrop ertüchtigst,
D&D-Dateien entgegenzunehmen, dann macht es nicht viel Sinn, wenn Du
dann ein Gadget-Event überprüfst.

so ungefähr müsste es aussehen:

Code: Alles auswählen

If EventID=#PB_Event_WindowDrop And EventWindow()=0

  Files$ = EventDropFiles()
  Count  = CountString(Files$, Chr(10)) + 1
  MessageRequester("",Str(Count),0)
   
EndIf

Grüße ... Kiffi