Реферат: Разработка приложений для Windows, представляющего собой компьютерную игру Сбей самолет

end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

case Key of

VK_LEFT : begin

if turel.X >0 then dec(turel.X,10);

end;

VK_RIGHT : begin

if turel.X<Image1.Width-turel.Gr.Width then inc(turel.X,10);

end;

VK_SPACE : begin

if rocket.Destroed then

begin

rocket.Destroed:=false;

rocket.X:=turel.X + turel.Gr.Width div 2;

end;

end;

VK_ESCAPE : begin

Timer1.Enabled:=false;

Button1.Enabled:=true;

end;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Button1.Enabled:=false;

Timer1.Enabled:=true;

end;