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

[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