Сергей Парижский - Delphi. Учимся на примерах

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

SetWindowRgn(Handle, forma, True);

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

Timer1.Interval:= 1000;

Timer1.Enabled:= True;//начинаем игру

end

else Halt;//выход из игры

end;

end;

При каждом "попадании" выполняется проверка: было ли это "попадание" последним. Если да, то просто пополняем счетчик попаданий и увеличиваем скорость перемещения формы на 100 мс. Если игрок сделал последнее "попадание", то останавливаем игру, выводим окно в центр экрана и показываем сообщение о том, что игра успешно окончена. После этого отображаем окно с вопросом: следует ли начинать игру заново. Если пользователь отказывается играть, то просто выходим из программы. Если пользователь хочет сыграть сначала, то обнуляем все результаты и начинаем игру заново.

Окно программы в процессе игры представлено на рис. 8.2.

Рис. 8.2. Игра "Успей щелкнуть" в действии

Полный исходный код программного модуля игры "Успей щелкнуть" представлен в листинге 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);