|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Задержка между сменой значений
Здравствуйте! Помогите в очередной раз пожалуйста.
Есть лейбл, при нажатии на кнопку его кэпшон получает значение1, подскажите плиз как сделать, чтобы через 5 сек лейбл получил значение 2. |
#2
|
||||
|
||||
Компонент TTimer.
Нажатие на кнопку активирует таймер: Код:
timer1.Enabled := true Свойство Interval таймера, если не ошибаюсь, должно быть = 5000 для данного случая. После изменения Лэйбла таймер можно выключить. |
Этот пользователь сказал Спасибо Guaho за это полезное сообщение: | ||
crazyman (11.01.2018)
|
#3
|
|||
|
|||
спс разобрался
|
#4
|
||||
|
||||
Цитата:
Обычно принято выкладывать решение, может другим пригодится, а для данной задачи возможен и такой вариант, без таймера Код:
procedure TForm1.Button1Click(Sender: TObject); var iBegin, iEnd: integer; begin Label1.Caption:= 'значение1'; iBegin:= GetTickCount; repeat iEnd:= GetTickCount; Sleep(1); Application.ProcessMessages; until (iEnd - iBegin) >= 5000; // 5 сек Label1.Caption:= 'значение 2'; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
crazyman (11.01.2018)
|
#5
|
|||
|
|||
Цитата:
Последний раз редактировалось crazyman, 13.01.2018 в 10:10. |