Таймер - Общие вопросы Delphi - Страница 2

kort95 · 12.12.2013, 01:13

То просто визуально в лейбле показывает же отсчет, при значении 5000, оно думает очень долго.

Мне не надо через 5 секунд, мне надо что бы 5 секунд был отсчет после клика по кнопке.

evg_m · 12.12.2013, 10:01

Цитата:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
tint:=tint+10;
Timer1.Interval :=tint;

//и будет думать все больше и больше!!!

Цитата:

То просто визуально в лейбле показывает же отсчет,

На картинке визуальное отображение что таймер срабатывает как надо. В приложении полный текст того что на картинке.

ВЕСЬ код ВЗЯТ из вашего и добавлена всего одна строчка в каждое событие таймеров. Ну и добавлен визуальный log (Memo).

Код:

memo1.Lines.Add( format('Event Timer. %s %s interval=%6d y=%2d tint=%6d', [(sender as Tcomponent).Name, FormatDateTime('hh:nn:ss:zzz', now), (sender as TTimer).Interval, y, tint]));

kort95 · 12.12.2013, 22:13

Теперь разобрался, спасибо большое

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
QT: Таймер	Krasi	Помощь студентам	5	12.11.2011 08:15
Таймер	SashaKrugliak	Помощь студентам	3	24.10.2011 08:13
таймер	megostudent	Общие вопросы Delphi	4	31.07.2011 22:28
таймер	nattaella	Компоненты Delphi	1	22.06.2011 21:59
Таймер	vik85	Microsoft Office Excel	5	17.06.2010 07:10

12.12.2013, 01:13	#11
kort95 Пользователь Регистрация: 26.05.2013 Сообщений: 18	То просто визуально в лейбле показывает же отсчет, при значении 5000, оно думает очень долго. Мне не надо через 5 секунд, мне надо что бы 5 секунд был отсчет после клика по кнопке.

12.12.2013, 22:13	#13
kort95 Пользователь Регистрация: 26.05.2013 Сообщений: 18	Теперь разобрался, спасибо большое