Обработчик события...

[Flash_]

Извиняюсь за ламерский вопрос, но тем не менее...)
Как создать процедуру для обработки какого-либо события при нажатии СТРЕЛОК на клавиатуре? А то буквами управлять как-то не очень удобно.. Подскажите, плз.

[mihali4]

Это события OnKeyDown, OnKeyUp. Но не OnKeyPress!!!
Опознавание значения KEY:
например, стрелка "вверх" - if key=VK_UP then...

Посмотри в хэлпе "virtualkeycodes", там приведены коды всех служебных клавиш.

[Flash_]

Спасибо. Именно вот это VK_UP и надо было.)

[Flash_]

Кстати, а почему OnKeyPress использовать нельзя?

[zetrix]

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

Кстати, а почему OnKeyPress использовать нельзя?

Там другой тип обозначения клавиш... Кароче VK_UP, VK_Left... там не прокатит.

[Flash_]

Ясно. Буду знать=)

[mihali4]

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

Ясно. Буду знать=)

Просто посмотри, какой тип имеет входная переменная KEY в событии ONKEYPRESS и в событиях ONKEYUP/DOWN. Именно поэтому ONKEYPRESS просто не умеет обрабатывать ничего, кроме символов.

[Cezar]

Я могу посоветовать свой метод:
Создаеш четыре переменные (MoveUp,MoveDown,MoveLeft,MoveRight );
Пишеш в событии OnKeyDown:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
VK_UP:
begin
Moveup:=true;
end;
VK_DOWN:
begin
Movedown:=true;
end;
VK_LEFT:
begin
Moveleft:=true;
end;
VK_RIGHT:
begin
Moveright:=true;
end;
end;
end;

Пищещ в событии OnKeyUp:

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
VK_UP:
begin
Moveup:=false;
end;
VK_DOWN:
begin
Movedown:=false;
end;
VK_LEFT:
begin
Moveleft:=false;
end;
VK_RIGHT:
begin
Moveright:=false;
end;
end;
end;

Создаеш таймер со значением Interval 10 (смотря чем управлять) и пишеш в него:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Moveup then player.Top:=player.Top-speed;
if Movedown then player.Top:=player.Top+speed;
if Moveleft then player.Left:=player.Left-speed;
if Moveright then player.Left:=player.Left+speed;
end;

После Then пиши то, что должно случатся при нажатии на соответствующие клавиши.


Может, такой метод давно существует, но до этого я сам додумался. Я этим методом постоянно пользуюсь, и всем вам советую. Налицо преимущества.

ЗЫ. Подходит?

[Dimos33]

Спасиб за информацию о Moveleft и т.п., и за speed

[LepihinMS]

Рассмотрим ситуацию жму на W, потом не отпуская W жму на D и компу уже наплевать что W нажата. Что делать если надо отслеживать нажатие 2х-3х клавишь одновременно?

Вот код который сейчас использую:

procedure TForm1.GLFSKeyPress(Sender: TObject; var Key: Char);
begin
if (key='w')or(key='ц') then Speed:=Speed+0.1;
if (key='s')or(key='ы') then Speed:=Speed-0.1;
if (speed<>0)and((key='a')or(key='ф')) then PL:=true;
if (speed<>0)and((key='d')or(key='в')) then PP:=true;
end;