The Drag and Drop Program

Если вы хотите drag and drop вджет на вашей форме с помощью мышки, вы можете использвать эту маленькую программу.

Вам нужен образ виджета на вашей форме, чтобы программа заработала. Когда вы щелкаете левой клавишей мышки, вы можете перетаскивать образ по вашей форме. Имя образа в этом примере - Image1 . Конечно, вы можете взять любой другой виджет, если измените в коде его имя.

На что это похоже ?

prgdragdrop.png

Код

PUBLIC SUB Form_MouseMove()
Image1.X = Mouse.X
Image1.Y = Mouse.Y
END

Прежняя версия

PUBLIC SUB Form_MouseMove(X AS Integer, Y AS Integer, Button AS Integer)
Image1.X = X
Image1.Y = Y
END

-- ReinerHoffmann - 06 Mar 2004