Jose,
Te vuelvo a comentar lo mismo, los eventos OnDragOver y OnEndDrag NUNCA
saltan, es un Datacontrol TDBrowse.
¿¿ Lo del cursor lo haces en el OnDragOver no en el OnBeginDrag ??
Un Saludo,
Joaquín
"José Luis Capel" <
jose.luis@iaicom.com> escribió en el mensaje
news:[email=
44f3fd95@news.xailer.com...]
44f3fd95@news.xailer.com...[/email]
> Joaquín,
>
>>
>> ::oBrwSoftware:OnBeginDrag := { |oBrw| ::oLabel44:cText := "Comienza
>> drag" }
>> ::oBrwSoftware:OnDragOver := { |oSender,oFrom| ::oLabel44:cText :=
>> "Sobre drag" }
>> ::oBrwSoftware:OnEndDrag := { |oSender,oBrw|
>> msginfo("Soltado"),::oLabel44:cText := "Fin drag" }
>
>
> Yo lo tengo hecho de la siguiente manera:
>
> WITH OBJECT ::odbVista := TDBBrowse():New( ::oPanel2 )
> :SetBounds( 0, 30, 769, 440 )
> :nAlign := alCLIENT
> WITH OBJECT :oImageList
> :nWidth := 16
> :nHeight := 16
> :Add( "BTNMENSAJEVERDE16" )
> :Add( "BTNMENSAJEROJO16" )
> END
> WITH OBJECT TBrwRecSel():New( ::odbVista )
> :nWidth := 24
> :Create()
> END
>
> :oDataSet := ::oClientesVista
> :OnChange := "dbVistaChange"
> :OnBeginDrag := "dbVistaBeginDrag"
> :OnEndDrag := "dbVistaEndDrag"
> :OnDragOver := "dbVistaDragOver"
> :Create()
> END
>
> Y tengo los métodos dbVistaChange(oSender, oFrom), dbVistaBeginDrag,
> dbVistaEndDrag como métodos del formulario. Este sistema hace que
> funcione más deprisa y no se 'atrase' la ejecución. Por otra parte, para
> cambiar el cursor, en el evento over del control que me interesa hago
> esto: Screen:oCursorDropYes := ::oMiCursor. En el samplesDragDrop viene
> un ejemplo de todo esto.
>
> Saludos,
> José Luis Capel
>
>>
>>
>> Esto funciona con otros controles, pero con TBrowse sólo pinta el
>> OnBeginDrag.
>> Aparte, ¿Cómo cambias el cursor?
>>
>> Un Saludo,
>> Joaquín
>>
>>
>>
>> "José Luis Capel" <
jose.luis@iaicom.com> escribió en el mensaje
>> news:44f3f2c8$[email=
1@news.xailer.com...]
1@news.xailer.com...[/email]
>>> Joaquín,
>>>
>>>>
>>>> Estaba probando el drag&drop pero en un tbrowse, y el evento EndDrag
>>>> nunca salta ¿se puede hacer igual que en otros controles?
>>>>
>>>
>>> Yo estoy usando drag&drop entre distintos controles y tambien dentro de
>>> un tdbBrowse sin mayor problema. ¿Podemos ver como lo haces?
>>>
>>> Saludos,
>>> José Luis Capel
>>>
>>
>>
>
>