Книга будет исключительно полезна
жүктеу/скачать 1.66 Mb. Pdf көрінісі
|
|
Рис. 1.30. Окончательный дизайн формы 9. В панели Project Manager (в правом верхнем углу) раскроем узел Target Platforms и выделим строчку 32-bit Windows двойным кликом. 10. Выберем File->Save All. 11. Запустим приложение кнопкой с «зелёным треугольником» на инструментальной панели . 12. Приложение запустится, и мы увидим его окно (рис. 1.31). Рис. 1.31. Макет формы и запущенное приложение 13. Закроем приложение и вернёмся в среду разработки. 38 14. Добавим на форму компонент TTimer из раздела Standard палитры компонентов на форму. 15. Выделим его и в Object Inspector его свойств Enabled установим значение false. 16. В Object Inspector перейдём на закладку Events, найдём строчку OnTimer, щёлкнем два раза в пустом поле рядом с этой надписью. Перед нами откроется редактор кода. 17. В пустой строчке введём следующий код (рис. 1.21): Label1.Text := IntToStr(StrToInt(Label1.Text) + 1); Рис. 1.32. Код для отображения количества пройденных секунд 18. Нажмём F12, чтобы перед нами опять появилась форма. Выберем кнопку с надписью «Старт», в Object Inspector на закладке Events найдём надпись с OnClick и дважды щёлкнем в пустом поле рядом с ней. 19. В появившемся редакторе кода введём следующее (рис. 1.33): Label1.Text := '0'; Timer1.Enabled := true; Рис. 1.33. Код для запуска таймера 20. Нажмём F12, перейдём опять в режим редактирования формы, выберем кнопку с надписью «Стоп», в Object Inspector на закладке Events найдём надпись с OnClick и дважды щёлкнем в пустом поле рядом с ней. 21. В появившемся редакторе кода введём следующее (рис. 1.34): Timer1.Enabled := false; |