Delphi. Учимся на примерах

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

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);

private

 { Private declarations }

public

 { Public declarations }

end;

var

 Form1: TForm1;

 forma: HRGN;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject)

begin

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

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

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

 SetWindowRgn(Handle, forma, True);

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

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

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

ширина

end;

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;

end.

⊚ Все файлы проекта и исполняемый файл рассмотренной программы находятся на прилагаемом к книге компакт-диске в папке Chapter_08.

Глава 9

Игра "Угадывание чисел"

Постановка задачи

Разработать игру, цель которой заключается в угадывании случайного числа из заданного диапазона чисел. Дать возможность играть с соперником или против компьютера.

Разработка формы

Создайте новый проект Delphi и присвойте свойству Caption (заголовок) формы значение Игра. Угадывание чисел. Вверху формы будут расположены элементы управления для настройки диапазона угадываемых чисел. Разместим на форме три компонента Label (метки) категории Standard и два компонента Edit (поле ввода) той же категории. Изменим их свойства согласно табл. 9.1.