Нужна срочная помощь

[Рената]

Нужна срочная помощь в 2 примерах. (Delphi)

• Переключение цвета окружности автоматически.

Проблема в том, что у меня получается запрограммировать. когда указатель мыши наведен на окружность, она меняет свой цвет, но мне надо решить задачу с компонентом Timer. Мне еще не приходилась сталкиваться с Таймером.

• Передвижение окружности на другую окружность.

Такая же ситуация.

[Jeni]

Пример 1.
Бросаем на форму таймер, устанавливаем его свойство Interval = XXXX (это в миллисекундах, но ставить меньше 55 смысла не имеет).
В обработчике OnTimer пишем код, который должен выполняться при каждом "тике", что-вроде Цвет_окружности := random(xxx); - конкретный вариант смены цветов зависит от задачи.


> Передвижение окружности на другую окружность.
Это что значит?

[Рената]

Т. е. в окне изображается 2 окружности. Одна изфигур в окне должна передвинутся на другую окружность.

[Рената]

С первой задачкой удалось Jeni.

[Jeni]

Сообщение от Рената

Одна из фигур в окне должна передвинутся на другую окружность.

Это понятно, что "должна передвинуться", но как? Плавно (с заданным шагом/интервалом времени), или "скачком"? И сами окружности что собой представляют - какие-то компоненты или они просто нарисованы на холсте формы?

[Рената]

Они просто нарисованы на холсте формы. А передвинуться должна плавно или с заданным шагом или с интервалом времени.

[Рената]

Ребята помогите кто может. Очень срочно.

[Трофимов Александр]

Действуй по алгоритму:
1. запоминаешь текущий радиус и место передвигаемой окружности
2. прорисовываешь её цветом фона
3. прорисовываешь статическую окружность(чтобы избежать стирания при наезде)
4. прорисовываешь передвигаемую окружность на смещённой позиции(например при помощи inc())
Все эти действия повторяются пока не совпадут центры окружностей
5 устанавливаешь свойства timer-enabled в false чтобы он больше не двигал окружность.

[Трофимов Александр]

Примерно вот так:
Вложение 660
правда таймер забыл отключить но двигаться всё равно дальше не будет.

[Рената]

Благодарствую за помощь Александр.