Клавиши и key

[Gapro]

 if (key=VK_UP) and  (Image1.Top>0)
   then Image1.Top:=Image1.Top-8;

Delphi изучаю сравнительно недавно. По этому коду у меня двигается картинка. Но чему равно key, чтобы картинка двигалась например на w. Стандартное паскалевское key='w' не подходит...

[Пепел Феникса]

а какое событие используете?
в OnKeyPress все четко

[ОДИНОЧЕСТВО В СЕТИ]

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
ShowMessage(IntToStr(ord(key)));
end;

и все узнаешь

[TwiX]

Или просто

ord("w") //тут может быть любая другая буква

[Gapro]

if (key=ord('w')) and  (Image4.Top>0)
   then Image4.Top:=Image4.Top-8;

Тоже не работает... Странно

[Gapro]

Никаких ошибок не выдает, однако при нажатии 'w' ничего не происходит

[russian-stalker]

if key=87 then
....

[Gapro]

Все равно не помогает, немогу понять почему

[Gapro]

Вот код процедуры.

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

 if (key=VK_UP) and  (Image1.Top>0)
   then Image1.Top:=Image1.Top-8;
 if (key=VK_LEFT) and (Image1.Left>=3)
   then Image1.Left:=Image1.Left-8;
 if (key=VK_DOWN) and (Image1.Top+Image1.Height<Form1.Height-32)
   then Image1.Top:=Image1.Top+8;
 if (key=VK_RIGHT) and (Image1.Left + Image1.Width <= Form1.ClientWidth-7 )
   then Image1.Left:=Image1.Left+8;
 If score1 mod 2 = 0 then Begin
   If Image2.Visible=true Then Begin
    If (Image1.Top<=Image2.Top) and (image1.Left<=Image2.Left) and
       (Image1.Left+Image1.Width>=Image2.Left+Image2.Width) and
       (Image1.Top+Image1.Height>=Image2.Top+Image2.Height) then begin
        score1:=score1+1; Image2.Visible:=false;
        Label1.Caption:='Очки2 ='+ IntToStr(score1)+'%';
        Image2.Top:=Random(420)+50; Image2.Left:=Random(550)+40;
        Image3.Visible:=true; vis:=1
     end;
    end;
    end
   Else Begin
   If Image3.Visible=true Then Begin
    If (Image1.Top<=Image3.Top) and (image1.Left<=Image3.Left) and
       (Image1.Left+Image1.Width>=Image3.Left+Image3.Width) and
       (Image1.Top+Image1.Height>=Image3.Top+Image3.Height) then begin
        score1:=score1+1; Image3.Visible:=false;
        Label1.Caption:='Очки2 ='+ IntToStr(score1)+'%';
        Image3.Top:=Random(420)+50; Image3.Left:=Random(550)+40;
        Image2.Visible:=true; vis:=0;
     end;
  end;
  end;

 if (key=ord('w')) and  (Image4.Top>0)
   then Image4.Top:=Image4.Top-8;
 if (key=ord('a')) and (Image4.Left>=3)
   then Image4.Left:=Image4.Left-8;
 if (key=VK_DOWN) and (Image4.Top+Image4.Height<Form1.Height-32)
   then Image4.Top:=Image4.Top+8;
 if (key=VK_RIGHT) and (Image4.Left + Image4.Width <= Form1.ClientWidth-7 )
   then Image4.Left:=Image4.Left+8;
 If score1 mod 2 = 0 then Begin
   If Image2.Visible=true Then Begin
    If (Image4.Top<=Image2.Top) and (image4.Left<=Image2.Left) and
       (Image4.Left+Image4.Width>=Image2.Left+Image2.Width) and
       (Image4.Top+Image4.Height>=Image2.Top+Image2.Height) then begin
        score2:=score2+1; Image2.Visible:=false;
        Label3.Caption:='ОЧки1 ='+ IntToStr(score2)+'%';
        Image2.Top:=Random(420)+50; Image2.Left:=Random(550)+40;
        Image3.Visible:=true; vis:=1
     end;
    end;
    end
   Else Begin
   If Image3.Visible=true Then Begin
    If (Image4.Top<=Image3.Top) and (image1.Left<=Image3.Left) and
       (Image4.Left+Image4.Width>=Image3.Left+Image3.Width) and
       (Image4.Top+Image4.Height>=Image3.Top+Image3.Height) then begin
        score2:=score1+1; Image3.Visible:=false;
        Label3.Caption:='Очки1='+ IntToStr(score2)+'%';
        Image3.Top:=Random(420)+50; Image3.Left:=Random(550)+40;
        Image2.Visible:=true; vis:=0;
     end;
  end;
  end;
e

[TwiX]

Не плохо бы увидеть исходник