в паскале при нажатии кнопки считывал символ так: if KeyPressed then ch:=ReadKey; В делфи такое что то не катит пишет Undeclared identifier... Как мне реализовать это в Делфях подскажите.
procedure TForm1.KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case Key of vk_down: if napravl<>nup then napravl:=ndown; vk_up: if napravl<>ndown then napravl:=nup; vk_left: if napravl<>nright then napravl:=nleft; vk_right: if napravl<>nleft then napravl:=nright; end; end;
то есть при нажатии стрелки менялось направление змейки. мне кажется, тебя что-то подобное должно устроить... но это все равно обработчик события.
--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует. На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!