Клавиатура и delphi

[guffer]

Компилятор ругается на if key = vk_NumPad2 then,говорит [Error] Unit1.pas(58): Incompatible types

procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
image1.Top:=random(900);
image1.Left:=random(600);
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if image2.Left = image1.Left then
begin
timer1.Enabled:=false;
timer2.Enabled:=false;
showmessage('you lose!');
end
else
timer2.Enabled:=true;
end;


procedure Key2(Sender: TObject; var Key: Char);
begin
if key = vk_NumPad2 then
begin
form1.Image2.Top:=form1.Image2.Top + 1;
end
else
form1.Timer1.Enabled:=true;
end;



procedure Key8(Sender: TObject; var Key: Char);
begin
if key = vk_NumPad8 then
begin
form1.Image2.Top:=form1.Image2.Top - 1;
end
else
key2
end;

procedure Key6(Sender: TObject; var Key: Char);
begin
if key = vk_NumPad6 then
begin
form1.Image2.Left:=form1.image2.Left + 1;
end
else
key8
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = vk_NumPad4 then
begin
image2.Left:=image2.Left - 1;
end
else
key6
end;

end.

[psycho-coder]

procedure Key2(Sender: TObject; var Key: Char);

  VK_NUMPAD2 = 98;

Разница видна?

[guffer]

Сообщение от psycho-coder

  VK_NUMPAD2 = 98;

Разница видна?

Не понял...

[psycho-coder]

VK_NUMPAD2 - это константа кода клавиши (сделайте Ctrl + Click по ней). Она имеет тип Integer, а у Вас в программе тип Char. Вот Вам и говорит компилятор, что Несоответствие/Смешение типов (Incompatible types).

[guffer]

Я сделал так:

procedure Key2(var Key: word);
begin
if key = vk_NumPad2 then

то есть вместо Key: Char поставил Key: word.Вроде заработало.