|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.11.2012, 20:34 | #1 |
Пользователь
Регистрация: 04.12.2009
Сообщений: 14
|
Delphi. Перемещение региона мышью.
Здравствуйте! Необходимо выпонить задание:
В рабочей области окна существует единственный объект, представляющий собой геометрическую фигуру, отличную от прямоугольника (например, круг или треугольник). Нажатием цифровых клавиш 1..8 цвет объекта изменяется на один из 8 возможных. Стрелками осуществляется перемещение объекта на 1 пиксел в любую из 4 сторон. Предусмотреть также возможность перетаскивания объекта мышью. Круг у меня стрелками двигается, цвет тоже меняет, но вот как сделать перемещение его мышью - ума не приложу |
27.11.2012, 20:34 | #2 |
Пользователь
Регистрация: 04.12.2009
Сообщений: 14
|
Код:
|
29.11.2012, 00:34 | #3 |
Участник клуба
Регистрация: 23.12.2010
Сообщений: 1,129
|
Ну, например, поймай событие нажатия левой кнопки мыши. Если в момент нажатия мышь была на фигуре - установи флаг в true. Сбрасывай флаг в false после получения события отпускания кнопки.
А потом лови событие перемещения мыши; и двигай фигуру соответственно, если флаг = true. Все просто же. |
29.11.2012, 09:51 | #4 |
Старожил
Регистрация: 13.07.2012
Сообщений: 6,331
|
Ну не так просто. Когда нажимается кнопка надо еще и запомнить координаты и потом при движениях мыши брать новые координаты, вычислять относительное перемещение (относительно старых координат) и потом двигать фигуру на относительное число точек. И не забывать обновлять сохраненные координаты.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
выбор региона | 6666 | JavaScript, Ajax | 3 | 02.02.2012 22:57 |
изменение размера региона | adugent | Win Api | 0 | 19.12.2011 16:54 |
Перемещение мышью динамического TEdit в runtime | singularity.storm | Помощь студентам | 1 | 15.06.2011 08:24 |
перемещение (перетаскивание) формы мышью | segail | Microsoft Office Excel | 1 | 26.07.2010 12:50 |
Перемещение окна мышью за Image | Viteef | Общие вопросы Delphi | 2 | 03.05.2007 23:48 |