|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите срочно надо!!!
Как сделать движение Timage за кликом мыши.Координаты с мыши легко взять, а вот как заставить передвигаться картинку ? Я не могу заставить. Она вечно куда то прячется за форму!
Помогите кому не трудно скиньте код. Заранее благодарен. |
#2
|
|||
|
|||
Код:
var pt: TPoint; begin GetCursorPos(pt); Image1.Left := pt.X - Form1.Left; Image1.Top := pt.Y - Form1.Top; end; |