Создание игры новичками

[Манжосов Денис :)]

Ну так к примеру машина у вас это ImageCar, тогда для того, чтобы машина поехала вправо, нужно вписать такой код по событию таймера:

  if KeyPressed (37) then
   // Двигать машину влево ImageCar.Left := ImageCar.Left - 2;
  if KeyPressed (39) then
   // Двигать машину вправо ImageCar.Left := ImageCar.Left + 2;

[Соколов Дмитрий]

Вот я вот так написал
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if KeyPressed (37) then
// Äâèãàòü ìàøèíó âëåâî Image3.Left := Image3.Left - 2;
if KeyPressed (39) then
// Äâèãàòü ìàøèíó âïðàâî Image3.Left := Image3.Left + 2;
Но 2 кнопки враз не работают, т.е. вперёд и влево например

[Манжосов Денис :)]

А какой интервал у таймера?

[Соколов Дмитрий]

У таймера100

[Манжосов Денис :)]

Уберите весь код из процедуры OnKeyDown Form'ы и тогда ничего не будет конфликторовать. Лучше приведите полный код вашей программы.

[Соколов Дмитрий]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Timer1: TTimer;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

function keypressed(key: byte): boolean;
var
keys: TKeyboardState;
begin
result:=false;
GetKeyboardState(keys);
if(keys[key]=128)or(keys[key]=129)then result:=true;
end;


{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_UP then image3.Top:=image3.Top-2;
if key=VK_LEFT then image3.Left:=image3.Left-2;
if key=VK_DOWN then image3.Top:=image3.Top+2;
if key=VK_RIGHT then image3.Left:=image3.Left+2;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if KeyPressed (37) then
// Двигать машину влево Image3.Left := Image3.Left - 2;
if KeyPressed (39) then
// Двигать машину вправо Image3.Left := Image3.Left + 2;

end;

end.

[Манжосов Денис :)]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function keypressed(key: byte): boolean;
var
keys: TKeyboardState;
begin
result:=false;
GetKeyboardState(keys);
if(keys[key]=128)or(keys[key]=129)then result:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if KeyPressed (37) then
// Двигать машину влево Image3.Left := Image3.Left - 2;
if KeyPressed (39) then
// Двигать машину вправо Image3.Left := Image3.Left + 2;
if KeyPressed(38) then
  Image3.Top := Image3.Top - 2;
if KeyPressed(40) then
  Image3.Top := Image3.Top + 2;
end;

end.

[Shadow_1329]

из FormKeyDown убери код, и все будет нормально!

[Соколов Дмитрий]

конфликтов нет,просто хочу, чтобы поворот нормальный был, с поворотом картинки, и ее смещением в нужную сторону, ну как положено при повороте тачки

[Манжосов Денис :)]

http://www.google.ru/search?hl=ru&q=...e&lr=&aq=f&oq=