Delphi. Учимся на примерах
вернуться

Парижский Сергей Михайлович
Шрифт:

Разместите на форме третий компонент Label, который будет отображать предельное число "попаданий", и измените его свойства согласно табл. 8.4.

Таблица 8.4. Свойства третьего компонента Label

Свойство Значение Пояснение
Caption /10 Надпись метки
Font.Color clRed Цвет шрифта — красный
Font.Name Courier New Название шрифта
Font.Size 16 Размер шрифта
Font.Style [fsBold] Начертание шрифта — полужирное
Left 144 Отступ слева
Top 16 Отступ сверху

Напоследок разместите на форме компонент Timer категории System. Результат оформления формы должен соответствовать рис. 8.1.

Рис. 8.1. Форма для игры "Успей щелкнуть"

Разработка программного кода

Изменение формы окна на эллиптическую реализуется в обработчике события OnCreate формы. Для этого необходимо объявить глобальную переменную forma типа HRGN, которая будет содержать размеры окна:

var

 Form1: TForm1;

 forma: HRGN;

В обработчик события OnCreate добавьте следующий код:

procedure TForm1.FormCreate(Sender: TObject)

begin

 Randomize;//включаем генератор случайных чисел

 forma:= CreateEllipticRgn(0, 0, Form1.Width, Form1.Height); //вид окна

 //применяем новый вид окна

 SetWindowRgn(Handle, forma, True);

end;

Здесь мы задаем окно в виде эллипса и применяем новый вид окна.

Каждую секунду форма должна случайным образом менять свои координаты в пределах экрана. Это будет реализовано в обработчике события Timer1.OnTimer:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

 Form1.Top:= Random(Screen.Height) + 1; //случайная высота

 Form1.Left:= Random(Screen.Width) + 1; //случайная ширина

end;

Здесь мы определяем высоту и ширину экрана, выбираем случайные координаты, не выходящее за пределы экрана, и перемещаем в них окно программы.

Теперь выделите все компоненты и саму форму и создайте для них общий обработчик события OnMouseDown:

procedure TForm1.popadMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

 if StrToInt(popad.Caption) < 10 then begin //если попаданий меньше 10

//Перемещаем окно в случайную позицию по вертикали

Form1.Top:= Random(Screen.Height) + 1;

//Изменяем положение по горизонтали

Form1.Left:= Random(Screen.Width) + 1;

//Увеличиваем счетчик "попаданий" на единицу

popad.Caption:= IntToStr(StrToInt(popad.Caption) + 1);

//Увеличиваем скорость перемещения окна на 100 мс

Timer1.Interval:= Timer1.Interval – 100;

 end;

 if popad.Caption = '0' then begin //если игрок попал 10 раз

Timer1.Enabled:= False; //останавливаем игру

Form1.Position:= poDesktopCenter; //окно – в центр экрана

//сообщаем о победе

ShowMessage('Вы попали по окну 10 раз!');

if Application.MessageBox('Игра', 'Играть еще раз?', mb_yesno + mbtaskmodal + mb_iconQuestion) = idYes

then {предлагаем сыграть еще раз}

begin

popad.Caption:= '0'; //сброс результатов

//Придаем окну эллиптическую форму

forma:= CreateEllipticRgn(0, 0, Form1.Width, Form1.Height);