Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.03.2010, 16:20   #1
skrudjmagdak
Пользователь
 
Регистрация: 02.12.2009
Сообщений: 33
По умолчанию Смещение рисунка

Как сделать чтоб при нажатии на клавишу мыши и перемещению курсора по форме рисунок(любой, пусть даже прямая линия) который нарисован на форме двигался?
skrudjmagdak вне форума Ответить с цитированием
Старый 26.03.2010, 16:26   #2
Lauraldo
Пользователь
 
Аватар для Lauraldo
 
Регистрация: 22.03.2010
Сообщений: 53
По умолчанию

OnMouseDown, OnMouseMove, OnMouseUp формы или изображения, там меняем Top и Left того, что нужно перемещать)
Lauraldo вне форума Ответить с цитированием
Старый 26.03.2010, 16:34   #3
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

Во вложении исходник
Вложения
Тип файла: zip blackjack.zip (23.4 Кб, 20 просмотров)
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог
mutabor вне форума Ответить с цитированием
Старый 27.03.2010, 13:28   #4
СВ9
 
Регистрация: 25.03.2010
Сообщений: 9
По умолчанию

Если нужно передвигать фигуру на любом BITMAPе, то
не все так просто:
При MouseDown-
1. Нужно вычислить, приходится ли курсор на тело фигуры.
При MouseMove-
1. Стереть фигуру, на старом месте.
2. Нарисовать на новом, согласно перемещению.
ИЛИ
1. Перерисовать весь BitMap.
СВ9 вне форума Ответить с цитированием
Старый 27.03.2010, 14:22   #5
MMM_Corp
Пользователь
 
Регистрация: 24.03.2010
Сообщений: 17
По умолчанию

см. Drag&Drop демки
MMM_Corp вне форума Ответить с цитированием
Старый 27.03.2010, 15:23   #6
skrudjmagdak
Пользователь
 
Регистрация: 02.12.2009
Сообщений: 33
По умолчанию

Спасибо всем разобрался
skrudjmagdak вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Смещение. Вопрос по нему. Baloo007 Microsoft Office Excel 12 11.03.2010 14:27
Смещение компонента Volt Общие вопросы Delphi 9 20.01.2010 00:36
Смещение ячеек Zulius Microsoft Office Excel 3 26.11.2009 12:30
Смещение в WinHex bmw Софт 4 22.03.2009 02:16
Смещение формулы в CrystalReports. HELP!! billidean Общие вопросы .NET 0 05.09.2008 17:27