Если вы хотите drag and drop вджет на вашей форме с помощью мышки, вы можете использвать эту маленькую программу.
Вам нужен образ виджета на вашей форме, чтобы программа заработала. Когда вы щелкаете левой клавишей мышки, вы можете перетаскивать образ по вашей форме. Имя образа в этом примере - Image1 . Конечно, вы можете взять любой другой виджет, если измените в коде его имя.
На что это похоже ?
Код
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