![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 16.05.2013
Сообщений: 15
|
![]()
Добрый вечер.
Вообщем вот отсчет времени, начинается с 15 секунд, когда остается 10 секунд, цифры становятся красными. Как сделать так, чтобы после того как отсчет закончится выводилось окошко с полем "Введите Ваше имя: ____" и Кнопка "Ок". Надеюсь на Вашу помощь, спасибо. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) tmr1: TTimer; lbl1: TLabel; procedure tmr1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Seconds,Minutes:Integer; implementation {$R *.dfm} procedure TForm1.tmr1Timer(Sender: TObject); begin Seconds:=Seconds-1; if(seconds<0) Then Begin Seconds:=15; end ; If (seconds = 10) Then lbl1.Font.Color:=clRed; If (seconds = 0) Then Tmr1.Enabled:=False; Lbl1.Caption:=IntToStr(Seconds); end; end. |
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 16.03.2013
Сообщений: 599
|
![]() Код:
alextrof94$gmail.com
|
![]() |
![]() |
![]() |
#3 |
Старожил
Регистрация: 30.12.2009
Сообщений: 11,430
|
![]() Код:
|
![]() |
![]() |
![]() |
#4 |
Пользователь
Регистрация: 16.05.2013
Сообщений: 15
|
![]()
Не запускает, ошибка в этой части:
Код:
|
![]() |
![]() |
![]() |
#5 |
Форумчанин
Регистрация: 16.03.2013
Сообщений: 599
|
![]()
а додумать самому чтоже может быть такое sName не айда?
alextrof94$gmail.com
|
![]() |
![]() |
![]() |
#6 |
Пользователь
Регистрация: 16.05.2013
Сообщений: 15
|
![]()
Неа, что-то не до понимаю
|
![]() |
![]() |
![]() |
#7 |
Пользователь
Регистрация: 16.05.2013
Сообщений: 15
|
![]()
Актуально.
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
таймер | shilovec5377 | Общие вопросы Delphi | 16 | 16.06.2012 11:28 |
Таймер | Руслан(2) | Общие вопросы C/C++ | 0 | 05.06.2012 16:54 |
Таймер | BaronVik | C# (си шарп) | 4 | 07.05.2012 10:05 |
таймер | megostudent | Общие вопросы Delphi | 4 | 31.07.2011 22:28 |
Таймер(C#) | Bella | Помощь студентам | 0 | 23.03.2010 19:17 |