Readkey Опции

[Антошка]

Можно ли так сделать, чтобы кроме 3 клавиш програма не реанировала на нажатия других? Если можно, то как?

[volvo]

"Попроще" чем ЧТО? Чем ЭТО:

uses crt;

Function ReadKey: Char;
Var ch: Char;
Begin
  repeat
    Ch := Crt.ReadKey;
    Case Ch Of
      #0: Crt.ReadKey;
      'a', 'b', 'c': Begin
        ReadKey := Ch; Exit;
      End;
    End;
  until false;
End;

begin
  writeln(readkey);
end.

???

Ну, попробуй запустить и понажимать ЛЮБЫЕ клавиши, кроме 'a', 'b', 'c' ...

[DFooz]

Ch := Crt.ReadKey;

Что надо указать в настройках TB7, чтобы эта конструкция начала работать? Или в ТП такое невозможно?

Сообщение отредактировано: DFooz - 21.03.2006 16:51