• B правой части каждого сообщения есть стрелки и . Не стесняйтесь оценивать ответы. Чтобы автору вопроса закрыть свой тикет, надо выбрать лучший ответ. Просто нажмите значок в правой части сообщения.

  • 🚨 29 мая стартует курс «Пентест Active Directory: от теории к практике» от Академии Кодебай

    🔍 Изучите реальные техники атак на инфраструктуру Active Directory: от первоначального доступа до полной компрометации.
    🛠️ Освойте инструменты, такие как BloodHound, Mimikatz, CrackMapExec и другие.
    🧪 Пройдите практические лабораторные работы, имитирующие реальные сценарии атак.
    🧠 Получите знания, которые помогут вам стать востребованным специалистом в области информационной безопасности.

    После старта курса запись открыта еще 10 дней Подробнее о курсе ...

Работа с анимацией и временем в Delphi 7

17.04.2020
1
0
Мы не проходили тему анимации, а мне это нужно для задания. Если Вы дадите ссылку на необходимый материал мне это тоже подойдет. Нет острой необходимости в готовых кодах.
Задача: когда происходит определенное событие, в течение секунды (время любое) рисунок в PaintBox должен сменить цвет (нарисовать поверх то же самое, да). Потом возвращается как было. Единственное, что мне неизвестно, это как работать со временем.
Надеюсь на понимание.
 
Последнее редактирование:
Мы не проходили тему анимации, а мне это нужно для задания. Если Вы дадите ссылку на необходимый материал мне это тоже подойдет. Нет острой необходимости в готовых кодах.
Задача: когда происходит определенное событие, в течение секунды (время любое) рисунок в PaintBox должен сменить цвет (нарисовать поверх то же самое, да). Потом возвращается как было. Единственное, что мне неизвестно, это как работать со временем.
Надеюсь на понимание.
Бросаешь компонент Timer на форму
(в Delphi 7, это вкладка System. В новых ищешь в правой нижней панели)


screenshot 2020-04-17 001.png

Устанавливаешь интервал (каждые 1000 милисек будет срабатывать таймер (1 сек = 1000 милсек)
Два раза тыкаешь по таймеру - пишешь что нужно делать каждые 1000 милисек
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!

Курс AD