onDragEnter example

In the following example, a ListBox onDragEnter is used to determine whether or not a drop will be allowed:

function LISTBOX1_onDragEnter(nLeft, nTop, cType, cName)

     nReturn = 0       // Default is no drop

  if cType == “F”     // Test for file being dragged

     try         // (in case cName is not char)

        if file( cName )  // See if file exists

           nReturn = 1    // Drop will be allowed

        endIf

     catch ( Exception e )

        // (Ignore error)

     endTry

  endIf

return nReturn