PUBLIC ox  
    ox=CREATEOBJECT("frmlist")  
    ox.SHOW  
    
    DEFINE CLASS frmlist AS FORM  
       AUTOCENTER=.T.  
       TOP = 0  
       LEFT = 0  
       HEIGHT = 200  
       WIDTH = 200  
       DOCREATE = .T.  
       OLEDRAGMODE = 1  
       OLEDROPMODE = 1  
       CAPTION = "OLE Drag And Drop Form"  
       NAME = "Form1"  
    
    
    ADD OBJECT Text1 AS textbox WITH ;  
       OLEDRAGMODE = 1, ;  
       OLEDROPMODE = 1, ;  
       HEIGHT = 28, ;  
       LEFT = 10, ;  
       TOP = 10, ;  
       WIDTH = 180, ;  
       NAME = "Text1", ;
       VALUE = "Тащи на форму файл", ;
       STRETCH=2  
    
    PROCEDURE OLEDRAGDROP  
       LPARAMETERS odataobject, neffect, nbutton, nshift, nxcoord, ;  
          nycoord  
       LOCAL cfilename, afiles[ 1 ]  
       IF odataobject.GETFORMAT( 15 )  
          odataobject.GETDATA( 15, @afiles )  
          FOR EACH cfilename IN afiles  
             THIS.text1.value = afiles[ 1 ] 
             THIS.text1.refresh()
          NEXT  
       ENDIF  
    ENDPROC  
    
    PROCEDURE OLEDRAGOVER  
       LPARAMETERS odataobject, neffect, nbutton, nshift, nxcoord, ;  
          nycoord, nstate  
       DO CASE  
          CASE nstate = 0 && Drag Enter  
             IF odataobject.GETFORMAT(15)  
                   THIS.OLEDROPHASDATA = 1  
                   THIS.OLEDROPEFFECTS = 4  
                   neffect = 4  
                ENDIF  
             CASE nstate = 1 && DRAG_LEAVE  
             CASE nstate = 2 && DRAG_OVER  
          ENDCASE  
          THISFORM.REFRESH  
       ENDPROC