Практическая работа Delphi_04

Цель: Создать небольшую игру «Поймай кнопку»

(Командная кнопка будет беспорядочно прыгать в окне программы по команде таймера, а вам надо будет успеть щелкнуть по ней.)

План разработки программы

1. Создать папку D:\MyProject\Игра (можно любую другую).

2. Открыть новое приложение с помощью команды главного меню File | New | Application.

3. На форме Form1 разместить следующие компоненты Button1, Button2 и Timer1. Компоненты надо взять со страниц Standard и System Палитры Компонентов.

4. Присвойте свойствам этих компонентов следующие значения

Button1	Properties	Caption	Установить имя кнопки: «Нажми меня»
		TabStop	Установить значение свойства - False
		Height	Установить значение свойства - 30
		Width	Установить значение свойства - 80
		Top	Установить значение свойства - 10
		Left	Установить значение свойства - 10
		Visible	Установить значение свойства - False
	Events	OnClick	Button1.Caption: = ' Готово! '; Button1.Enabled := False; Timer1.Enabled := False;
Button2	Properties	Caption	Установка имени кнопки: «Выход»
		Height	Установить значение свойства - 30
		Width	Установить значение свойства - 80
		Top	Установить значение свойства -160
		Left	Установить значение свойства -110
		Default	Установить значение свойства - True
	Events	OnClick	Close;

Первой, в левом верхнем углу формы, устанавливается прыгающая кнопка и производятся ее настройки. Свойство TabStop разрешает выбор элемента управления клавишей Tab. В этой игре пользоваться клавиатурой нельзя, чтобы запретить это, свойство получает значение False.

Вторая кнопка устанавливается в правом нижнем углу и предназначается для выхода из программы. Свойство Default «забирает» фокус ввода всегда на себя, поэтому это свойство получает значение True.

5. Аналогично установите размеры формы

Form1	Properties	Caption	Установить имя кнопки «Прыгающая кнопка»
		ClientWidth	Установить значение свойства - 300
		ClientHeight	Установить значение свойства - 200
		BorderStule	Установить значение свойства - bsSingle (Тонкая)
	Events	OnCreate	Randomize;

Свойства ClientWidth и ClientHeight задают внутреннюю ширину и внутреннюю высоту формы. Свойство BorderStyle устанавливает тип границы окна, чтобы его нельзя было изменить в процессе игры.

6. Аналогично установите характеристики таймера

Timer1	Properties	Interval	Установить значение свойства - 500
	Events	OnTimer	Var i: Integer; begin i :=Random(9); Button1.Visible:= True; Button1.Top:= 10+50*(i div 3); Button1.Left:= 10+100*(i mod 3); end;

Объект Таймер принадлежит форме, он влияет на работу программы, но сам в программе не виден, а представлен на форме значком.

Запустите программу, нажав клавишу F9 и протестируйте ее. Попробуйте доработать ее, чтобы избежать совпадения старого и нового положения кнопки. Введите счет неудачных попыток нажать на кнопку (до момента появления надписи «Готово!».