Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
0 / 0 / 0
Регистрация: 22.02.2015
Сообщений: 97
1

Работа с timer и button

29.06.2015, 11:43. Показов 2032. Ответов 1
Метки нет (Все метки)

на форме есть таймер, лэйбл и кнопка
как при нажатии на кнопку зациклить таймер так, чтобы через секунду в лэйбл выводилось например 5, опять через секунду ещё 5 и после сумировалось и становилось 10, потом 15 и так далее.
помогите
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.06.2015, 11:43
Ответы с готовыми решениями:

Работа с компонентами Timer, button, ShowMessege
Как сделать так, чтобы при нажатия кнопки через 5 секунд выводилось сообщения: "время вышло"? ...

Timer i button
Добрый день возникла такая проблема когда проходит бои ручном режиме нажатие на кнопки то все норм...

Изучить основные свойства компонент: label, button, colorBox, timer
Изучить основные свойства компонент: label, button, colorBox, timer. Разместите на форме кнопку...

Работа с компонентом Timer
если timer = полторы минуты то как это написать на языке делфи и чтоб делфи не ругался пытался...

1
Модератор
64059 / 47474 / 32728
Регистрация: 18.05.2008
Сообщений: 115,185
29.06.2015, 11:53 2
Лучший ответ Сообщение было отмечено egorzhartun как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
var
  Form1: TForm1;
  k:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=false;
Timer1.Interval:=1000;
Button1.Caption:='Пуск';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if Button1.Caption='Пуск' then
 begin
  Timer1.Enabled:=true;
  Button1.Caption:='Стоп';
 end
else
 begin
  Timer1.Enabled:=false;
  Button1.Caption:='Пуск';
 end;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
k:=k+5;
Label1.Caption:=inttostr(k)
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.06.2015, 11:53

Работа с Memo и Timer
В общем есть progressbar, есть timer и есть memo, как сделать так что-бы когда нажимаю button в...

Работа с компонентом Timer
Даны 4 формы и на всех формах есть Label и Timer. Мне надо, чтобы при запуске таймера на первой...

Если Button 1 и Button 2 нажаты - Button 3 стала активной, как?
Проверка если Button 1 и Button 2 нажаты - Button 3 стала активной Причем нужно чтобы это...

Запуск/остановка таймера при вводе в Edit команд Timer Start/Timer Stop
Суть вот в чём на форме есть таймер который выполняет обратный отсчёт и есть Edit, задача вот...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.