Разработка приложений в системе Delphi. Шейкер Т.Д. - 55 стр.

UptoLike

ВУЗ: 

ДВФУ | Владивосток

Составители: 

Рубрика: 

Компонент Timer
Таймер позволяет задавать в приложении интервалы времени. Управление
таймером осуществляется с помощью свойств
Interval, Enabled и события
OnTimer.
Свойство Interval задаёт интервал времени в миллисекундах от момента
включения таймера до события
OnTimer. Минимальный интервал равен 55
мсек (примерно 1 тик), интервалы кратны 55 мсек. Короткие интервалы
времени (единицы и десятки миллисекунд) точно задать с помощью таймера не
удаётся: реальные периоды срабатывания будут больше.
Свойство
Enabled определяет, включён ли таймер (если true, то
включён). Причём, раз включённый таймер будет возбуждать событие
OnTimer до тех пор, пока его свойство Enabled не станет равным false.
Альтернативным способом отключения таймера является задание
интервала срабатывания равным 0 при
Enabled = true.
В приведённом примере в обработчике события OnFormCreate задаются
начальные размеры формы, которые затем меняются по таймеру.
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Height:=28; Form1.Width:=124;
er1.Enabled:=true; Tim
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
with Form1 do
begin
if Width<574 then Width:=Width+50 else
if Height<308 then Height:=Height+40 else Timer1.Enabled:=false;
end;
end;
ВОПРОСЫ ДЛЯ САМОКОНТРОЛЯ
1. Какой тип имеет свойство
Visible?
2. Будет ли видна на экране кнопка Button1, для которой задано
Button1.Enabled:=false;
3. Какие компоненты называют контейнерами?
4. Как создать всплывающую подсказку для компонента?
55
Компонент Timer
   Таймер позволяет задавать в приложении интервалы времени. Управление
таймером осуществляется с помощью свойств Interval, Enabled и события
OnTimer.
   Свойство Interval задаёт интервал времени в миллисекундах от момента
включения таймера до события OnTimer. Минимальный интервал равен 55
мсек (примерно 1 тик), интервалы кратны 55 мсек. Короткие интервалы
времени (единицы и десятки миллисекунд) точно задать с помощью таймера не
удаётся: реальные периоды срабатывания будут больше.
   Свойство Enabled определяет, включён ли таймер (если true, то
включён). Причём, раз включённый таймер будет возбуждать событие
OnTimer до тех пор, пока его свойство Enabled не станет равным false.
   Альтернативным     способом   отключения   таймера   является   задание
интервала срабатывания равным 0 при Enabled = true.
   В приведённом примере в обработчике события OnFormCreate задаются
начальные размеры формы, которые затем меняются по таймеру.
procedure TForm1.FormCreate(Sender: TObject);
begin
 Form1.Height:=28; Form1.Width:=124;
 Timer1.Enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 with Form1 do
  begin
   if Width<574 then Width:=Width+50 else
   if Height<308 then Height:=Height+40 else Timer1.Enabled:=false;
  end;
end;

                     ВОПРОСЫ ДЛЯ САМОКОНТРОЛЯ
1. Какой тип имеет свойство Visible?
2. Будет ли видна на экране кнопка Button1, для которой задано
  Button1.Enabled:=false;
3. Какие компоненты называют контейнерами?
4. Как создать всплывающую подсказку для компонента?

                                    55

Страницы