ExamineDraggedItems()

Syntax

ExamineDraggedItems()

Beginnt mit der Untersuchung der gezogenen Elemente ("drappged items") mittels der Funktionen NextDraggedItem() und DraggedItemIndex(). Sie muss nach einem #PB_Event_DragStart verwendet werden. Diese Funktion wird für die folgenden Gadgets unterstützt: ExplorerListGadget(), ExplorerTreeGadget(), ListIconGadget(), ListViewGadget() und TreeGadget().

Rückgabewert

Diese Funktion gibt keinen Wert zurück.

Beispiel

  Procedure DragStartHandler()
    
    ; Beginnt mit der Untersuchung der gezogenen Elemente. Muss nach einem #PB_EventType_DragStart Ereignis erfolgen
    ;
    ExamineDraggedItems()
    
    ; Durchläuft die gezogenen Elemente
    ;
    While NextDraggedItem()
      Debug "Dragged item: " + GetGadgetText(0) + GetGadgetItemText(0, DraggedItemIndex())
    Wend
  EndProcedure

  ; Wählen Sie einige Dateien oder Ordner aus und ziehen Sie sie in eine andere Anwendung
  ;
  If OpenWindow(0, 200, 200, 400, 400, "Drag & Drop")
    ExplorerListGadget(0, 10, 10, 380, 380, GetHomeDirectory(), #PB_Explorer_MultiSelect)
    
    ; BindGadgetEvent() ist erforderlich, um das Drag-Start-Ereignis zu verarbeiten
    BindGadgetEvent(0, @DragStartHandler(), #PB_EventType_DragStart)
    
    Repeat
      Event = WaitWindowEvent()  
    Until Event = #PB_Event_CloseWindow
  EndIf

Siehe auch

NextDraggedItem(), DraggedItemIndex()

Unterstützte OS

Alle