Коды клавиш Опции

[18192123]

А какие коды соответствуют клавишам
<--- , --->?

[Sto]

Вот пример программы на использование управляющих клавиш.

Uses Crt;
Const Up = #72;
      Down = #80;
      Left = #75;
      Right = #77;
      Esc = #27;
Var x, y :Integer;
    ch :Char;
Begin
	ClrScr;
	x:=5;
	y:=5;
	While(ch <> Esc) Do
	Begin
		ClrScr;
		GotoXY(x,y);
		Write('0');
		ch := ReadKey;
		If ch = #0 Then
		Begin
			ch := ReadKey;
			Case ch of
				Up : y:=y-1;
				Down : y:=y+1;
				Left : x:=x-1;
				Right : x:=x+1;
			End;
		End;
	End;
End.

Как убрать мигающий курсор незнаю.
Кто знает подскажите.

Сообщение отредактировано: Sto - 29.04.2007 18:08

[Lapp]

Вот пример программы на использование управляющих клавиш.
Кто знает подскажите.

Sto, ты читать не умеешь - только писатель? Читай ответы Klem4 и Altair'a - может, осознаешь свои ошибки.. А также понажимай в своей программе латинские буквы: H K M P.