Исправте ошибку с клавишами

[quarty]

Помогите, вот код:

if (key=VK_UP) and (key=VK_left) then  (shape1.Top:=shape1.top-5) and (shape1.left:=shape1.left-5);

что не так?

[dosha]

нажми две клавиши будет работать

[quarty]

так оно не хочет запускаться, то что две клавиши я знаю, я для двух клавиш и писал

[Pein95]

хоть ошибку дайте посмотреть...

[Vervolf]

а в каком именно обработчике событий это делаешь?

[asmodey1]

Сообщение от quarty

Помогите, вот код:

if (key=VK_UP) and (key=VK_left) then  (shape1.Top:=shape1.top-5) and (shape1.left:=shape1.left-5);

что не так?

Однозначно в "шедевры"...
Вот ваша ошибка:

if (key=VK_UP) and (key=VK_left) then
begin
shape1.Top:=shape1.top-5;
shape1.left:=shape1.left-5;
end;

[Pein95]

епт чет не посмотрел даже на ето) наверно поздно уже, спать пора)

[vovk]

хмм

if ((GetKeyState(VK_LEFT) and 128)=128)  AND ((GetKeyState(VK_UP) and 128)=128) 
then 
begin
 (shape1.Top:=shape1.top-5);  
 (shape1.left:=shape1.left-5);
end;