>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);
> SetWindowRgn(Handle, forma, True);
> //Устанавливаем начальную скорость перемещения окна
> Timer1.Interval:= 1000;
> Timer1.Enabled:= True; //начинаем игру
> end
> else Halt; //выход из игры
> end;
>end;
При каждом "попадании" выполняется проверка: было ли это "попадание" последним. Если да, то просто пополняем счетчик попаданий и увеличиваем скорость перемещения формы на 100 мс. Если игрок сделал последнее "попадание", то останавливаем игру, выводим окно в центр экрана и показываем сообщение о том, что игра успешно окончена. После этого отображаем окно с вопросом: следует ли начинать игру заново. Если пользователь отказывается играть, то просто выходим из программы. Если пользователь хочет сыграть сначала, то обнуляем все результаты и начинаем игру заново.
Окно программы в процессе игры представлено на рис. 8.2.
Рис. 8.2. Игра "Успей щелкнуть" в действии
Полный исходный код модуля
Полный исходный код программного модуля игры "Успей щелкнуть" представлен в листинге 8.1.
Листинг 8.1. Программный модуль игры "Успей щелкнуть"
>unit Unit1;
>interface
>uses
> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
>type TForm1 = class(TForm)
> Label2: TLabel;
> popad: TLabel;
> Label3: TLabel;
> Timer1: TTimer;
> procedure FormCreate(Sender: TObject);
> procedure Timer1Timer(Sender: TObject);
> procedure popadMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
