The following code is used to delete the data from a List Box control by Drag and Drop into a Button control with a recycle bin image. Only the move (cut/paste) is allowed.
//- - Initialize the Button control BTN_Bin
BTN_Bin.DndTarget = dndProgram
// Call the OnDrop procedure when the left mouse button
// is released on the Button control BTN_Bin
DnDEvent("OnDrop", BTN_Bin, dndDrop)
// Call the OnDragOver procedure when the mouse cursor
// moves between the source List Box control and the Button control BTN_Bin
DnDEvent("OnDragOver", BTN_Bin, dndDragOver)
PROCEDURE OnDragOver()
// Cursor indicating the move
DnDCursor(dndMove)
// Procedure called by the dndDrop event
PROCÉDURE OnDrop()
// Only the move is allowed (not the copy)
DnDAccept(dndMove)
This page is also available for…
|
|
|
|