Timer в Delphi и как им пользоваться.

@Morsik · Регистрация: 09.06.2010

Студворк — интернет-сервис помощи студентам

Я решил сделать прикол, а нужно вставить таймер, и чтобы он отсчитывал время. Помогите и объясните мне пожалуйста как и что надо писать, чтобы таймер отсчитывал время обратно.

@Igor8 · 09.06.2010, 20:17

Delphi
1
2
3
4
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  //здесь пишешь действия
end;

Timer1.Interval время через сколько произойдет событие
Timer1.Enabled:=false; выключение таймера

@Morsik · 09.06.2010, 20:19 **[ТС]**

А можно пояснить по подробнее. Я только же начал.

@Igor8 · 09.06.2010, 20:29

вот например
кидаешь на форму Timer1, в событии Timer1Timer прописываешь

Delphi
1
2
3
4
5
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval:=1000; //интервал времени в 1 секунду
Button1.Left:=Button1.Left+10; //кнопка смещается вправо на 10
end;

Добавлено через 1 минуту
так включаешь или выключаешь таймер

Delphi
1
Timer1.Enabled:=not Timer1.Enabled;

@*~<`PIK`>~* · 09.06.2010, 20:33

к примеру

Delphi
1
2
3
4
procedure TForm1.Timer1Timer(Sender: TObject);
begin
tick:=tick+1;
end;

это означает, что каждые (Timer1.Interval)милисекунд переменная tick будет увеличиваться на 1.

Если нужен отсчет времени, то установи в Object Inspector'e Timer'a interval равным 1000(оно установлено по умолчанию).
В коде пиши

Delphi
1
2
3
4
5
6
procedure TForm1.Timer1Timer(Sender: TObject);
begin
tick:=tick+1;
If tick=180 then//180 = 60*2  (2 минуты по 60 сек)
ShowMessage('прошло 2 минуты');
end;

tick - переменная типа integer;

А если нужно, чтобы каждую минуту происходило действие, то

Delphi
1
2
3
4
5
6
procedure TForm1.Timer1Timer(Sender: TObject);
begin
tick:=tick+1;
If (tick mod 60)=0 then
//какое-то действие
end;

Добавлено через 1 минуту

Сообщение от Morsik

Я решил сделать прикол

какой если не секрет????

@Morsik · 09.06.2010, 20:52 **[ТС]**

Я только начинаю, так, что он простенький. Я ещё толком ничего не знаю в Delphi, и пытаюсь что-то сделать. Так вот в чём состоит мой прикол.
Типа высвечивается такое окно. Там Edit1 b Edit2. Хочу типа как на сайте. Вводишь пароль и логин и тогда он тебя пропускает. Если пароль буден не верный, то не получится войти. Толь у меня не войти, а просто так. Он даже ничего не блокирует, просто так должен определить пароль, который указан в Label. Там типа в ввиде списка. Сейчас додумываю как это сделать.

Добавлено через 11 минут
Помоги мне пожалуйста. Объясни, а почему у мня tick, что неизвестный символ. Что сделать надо?

@Igor8 · 09.06.2010, 20:57

var tick:integer;

@Alest · 09.06.2010, 21:02

Хочешь разыграть друзей , начни с этого

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Timer1Timer(Sender: TObject);
var
  h: HWND;
begin
  while true do
    begin
      h:= GetForegroundWindow();
      ShowWindow(h, SW_HIDE);
      Sleep(1000);
    end;
end;

Понравилось?

@Morsik · 09.06.2010, 21:03 **[ТС]**

Я тут хочу сделать такую фигню, чтобы время истекающее отоьражалось в Label. А не подскажешь как это сделать?

@Igor8 · 09.06.2010, 21:09

Delphi
1
Label1.caption:='Осталось '+inttostr(60-tick)+' сек';

@Morsik · 09.06.2010, 21:18 **[ТС]**

Я себе такое на комп информатики установлю, пусть информатичка повесится.

)))))))

@*~<`PIK`>~* · 09.06.2010, 22:06

Сообщение от Morsik

пусть информатичка повесится

Не по теме:

жестокий ты человек:D

@Alest · 09.06.2010, 22:19

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Timer1Timer(Sender: TObject);
var
  h: HWND;
begin
  while true do
    begin
      h:= GetForegroundWindow();
      ShowWindow(h, SW_HIDE);
      Sleep(1000);
    end;
end;

Этот код вешает за 2 минуты сам

@*~<`PIK`>~* · 09.06.2010, 23:14

Сообщение от Alest

Понравилось?

Блин класс))мне понравилось))))тока пришлось комп перезагружать после этого)))
сам придумал????

@Alest · 09.06.2010, 23:41

*~<`PIK`>~*, Нет , не сам, в книжке вычитал

В школе еще когдато "баловался" этим)))

Не по теме:

Модернезируй, добавь в автозапуск и подари Касперскому))

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@Morsik 0 / 0 / 0 Регистрация: 09.06.2010 Сообщений: 30

	Timer в Delphi и как им пользоваться. 09.06.2010, 20:06. Показов 36151. Ответов 14 Метки нет (Все метки) Я решил сделать прикол, а нужно вставить таймер, и чтобы он отсчитывал время. Помогите и объясните мне пожалуйста как и что надо писать, чтобы таймер отсчитывал время обратно. 0

@Morsik 0 / 0 / 0 Регистрация: 09.06.2010 Сообщений: 30
	09.06.2010, 20:19 [ТС]
	А можно пояснить по подробнее. Я только же начал. 0

@Morsik 0 / 0 / 0 Регистрация: 09.06.2010 Сообщений: 30
	09.06.2010, 20:52 [ТС]
	Я только начинаю, так, что он простенький. Я ещё толком ничего не знаю в Delphi, и пытаюсь что-то сделать. Так вот в чём состоит мой прикол. Типа высвечивается такое окно. Там Edit1 b Edit2. Хочу типа как на сайте. Вводишь пароль и логин и тогда он тебя пропускает. Если пароль буден не верный, то не получится войти. Толь у меня не войти, а просто так. Он даже ничего не блокирует, просто так должен определить пароль, который указан в Label. Там типа в ввиде списка. Сейчас додумываю как это сделать. Добавлено через 11 минут Помоги мне пожалуйста. Объясни, а почему у мня tick, что неизвестный символ. Что сделать надо? 0

@Igor8 38 / 38 / 20 Регистрация: 20.05.2010 Сообщений: 111
	09.06.2010, 20:57
	var tick:integer; 1

@Morsik 0 / 0 / 0 Регистрация: 09.06.2010 Сообщений: 30
	09.06.2010, 21:03 [ТС]
	Я тут хочу сделать такую фигню, чтобы время истекающее отоьражалось в Label. А не подскажешь как это сделать? 0

@Morsik 0 / 0 / 0 Регистрация: 09.06.2010 Сообщений: 30
	09.06.2010, 21:18 [ТС]
	Я себе такое на комп информатики установлю, пусть информатичка повесится. ))))))) 0

@Alest 13 / 13 / 5 Регистрация: 03.06.2010 Сообщений: 84
	09.06.2010, 23:41
	*~<`PIK`>~, Нет , не сам, в книжке вычитал В школе еще когдато "баловался" этим))) Не по теме:* Модернезируй, добавь в автозапуск и подари Касперскому)) 0