|
|
|
|
|
DnDIsDataAvailable (Example)
The following code is used to copy/paste text data ( CF_TEXT constant). //- - Initialize the target control ("EDT_Find") EDT_Find.DndTarget = dndProgram // Call the OnDrop procedure when the left mouse button // is released on the target control named "EDT_Find" DnDEvent("OnDrop", EDT_Find, dndDrop) // Call the OnDragOver procedure when the mouse cursor // moves between the source control and the target control ("EDT_Find") DnDEvent("OnRollover", EDT_Find, dndDragOver)
PROCEDURE OnDragOver() // Is the type of data available? IF DnDIsDataAvailable(CF_TEXT) = True THEN // Cursor indicating the move DnDCursor(dndMove) ELSE // Cursor indicating that the move is not allowed DnDCursor(dndNone) END
PROCEDURE OnDrop() // Is the type of data available? IF DnDIsDataAvailable(CF_TEXT) = True THEN // The move is allowed (but not the copy) DnDAccept(dndMove) ELSE // No action is allowed DnDAccept(dndNone) END
Esta página también está disponible para…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|