т өткеннен кейін экран қорғаушысын қосу, қандай да бір уақыт интервалы өткенде тестілеу программасын айыру т. с. с. Таймер- визуальды емес компонент болып табылады.
Таймердің екі қасиеті бар:
Interval - компонентті қосудың уақыт интервалын білдіреді. Ол миллисекундпен өлшенеді. Бұл қасиет таймердің жұмыс жасау периодын береді. Белгілі бір уақыт өткеннен кейін компоненттің OnTimer оқиғасы орындалады.
Мысалы: Timer компонентінің Interval қасиетінің мәнін 5000-ге тең етіп қойып, OnTimer оқиға өңдеушісіне Close операторын жазсақ, онда 5 секунд уақыт өткеннен кейін форма жабылады.
Enabled – компонентті қосу мүмкіндігін беретін логикалық тип. Егер бұл қасиеттің мәні true болса, онда Timer компоненті қосылады және керісінше.
š
Ä
Æ
ú
L
N
j
J
L
N
j
болса, онда таймер компоненті жұмыс жасамайды.
Жаңа тақырып түсіндіру барысында
Timer компонентін қолдану мысалдарын қарастырайық.
Мысал1. 5 секундтан кейін ағымдық дата және 10 секундтан кейін ағымдық уақыт экранға шығатын қосымша жасаңдар.
Шешуі: Формада 2 таймер компонентін алып, олардың біріншісінің Interval қасиетінің мәнін 5000- ға, екіншісінікін 10000- ға тең етіп қоямыз да, Timer1, Timer2 компонентінің OnTimer оқиға өңдеушілеріне төмендегі кодты жазамыз.
procedure TForm1. Timer1Timer(Sender: TObject);
begin
Edit1. Text:DateToStr(now);
end;
procedure TForm1. Timer2Timer(Sender: TObject);
begin
Edit2. Text:TimeToStr(now);
end;
Тапсырмалар:
1. Сәйкес батырмаларды шерткенде экранға ағымдық уақыт, ағымдық дата шығатын және форма.
procedure TForm1. Button1Click(Sender: TObject);
1)Уакыт
Edit1. Text:TimeToStr(Time);
2)Дата
Edit2. Text:DateToStr(
Страницы: << < 1 | 2 | 3 > >>