Курсовая работа: Составить программу обучения работе с клавиатурой
vremi:=30 ; // обратный отсчет
timer2.enabled :=true; // включаем таймер
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
image1.Picture.LoadFromFile ('fonovi.wmf') ;
timer1.enabled:=false; // останавливаем таймер
timer2.enabled:=false; // останавливаем таймер
edit1.Visible:=true; // показать текстовое окно
edit1.SetFocus; // сделать активным текстовое окно
label2.Caption:=''; // очистить
edit1.Text:='' ; // очистить
t:=0; // обнуляем счетчик правильных слов
k:=1; // счетчику случ. слов присвоили 1
label4.Caption:=''; // очистить
end;
procedure TForm1.Timer2Timer(Sender: TObject); // таймер отсчета обратного
// времени
begin
vremi:=vremi-1; // каждую секунду отнимаем от заданного времени 1
if vremi=0 then //если время закончилось
begin
timer2.Enabled:=false; // выключаем таймер
label4.Caption:='off'; // выводим окно
end
else
label4.Caption:=inttostr(vremi); // обратный отсчет
end;
end.