Компонент Delphi таймер

Произволното числен параметър

Поставете компонент Delphi Таймер във формуляра. Задаването в интервала собственост на желания интервал от време (измерена в милисекунди). Отидете в раздела събития и виждат единственото събитие, подкрепена от компонент Delphi Таймер: OnTimer. Извършване на него Кликването върху двойно или също двойно кликване върху най-компонент, ние получаваме в Делфи среда манипулатор генерира събитие, където ние се въведе код осигуряване за изпълнение на определени действия.

От soystvo по подразбиране Enabled настроен на True. в програмата след определен период от време в интервал собственост на строителните работи таймерът, тогава няма да даде OnTimer събитие. ще бъдат взети съответните мерки. Понякога, обаче, планираните действия не трябва да се случи автоматично, когато стартирате програмата, както и при изпълнение на всяко друго действие. В този случай, на Enabled имота в инспектора на Object ЛЪЖА. След това, в необходимото време е необходимо да се изпълни командата:

Имайте предвид, че докато Timer1.Enabled равен True. OnTimer компоненти продължават да генерират случай при изтичането на всеки интервал от време, равен на стойността svoyctva интервал. Ето защо, ако имате нужда от само една операция, таймерът трябва да бъде спряна, и едновременно една и съща:

Ако програмата "Off", след като таймерът в програмата за действие за достатъчно малък в сравнение с продължителност необходими действия стойността на имота Интервал таймера отново работи, и това може да попречи на хода на програмата.

Delphi Таймер компонент не е много точен и не е подходящ за измерване на кратки интервали от време. Нейната точност е от порядъка на 50 милисекунди. Като пример, една проста програма, която показва текущото време.

Във формуляра само ще Label компонент и в действителност ни компонент Delphi таймер. функция на таймера може да се остави на 1000, но по-рано при по-бавни компютри трябваше да показва часа, няколко пъти в секунда, поради влиянието на друг компютър-изпълним процес изход веднъж второ четене на "плаващо", която е ясно видима за окото. размер на шрифта отнеме повече - 50, и ще вземе по-гладка, взех Bell MT. Опънете на целия формуляр: Align = alClient. Ами, всъщност, кодът:

процедура TForm1.Timer1Timer (Sender: TObject);
започвам
Label1.Caption: = TimeToStr (А);
приключи;

Това е! Delphi Сега - е функция на система, която връща текущия дата-време в съответния TDateTime формат. Ако го трансформирате функция низ TimeToStr. тя ще се върне на текущото време, ако DateToStr. на текущата дата. Ако искаме да се покаже в нашата програма и датата, също е достатъчно, за да вкараме още някой от компонентите на етикета. и функция, за да го DateToStr дата предава. Можете да изтеглите проекта.