Запрет на повторное нажатие клавиши

[russian-stalker]

Как сделать чтобы при нажатии кнопки, не работали другие кнопки? Т.е. Если нажал влево, а операция ещё не заверешена, то она её прервёт её и начнёт заново. Но мне надо чтобы так происходило

[evg_m]

enable:=false;
////
enable:=true;

[russian-stalker]

Я говорил про клавиши Vk_left и тд. Дык как?

[NikLik]

Если я тебя правильно понял:

var
  Form1: TForm1;
  pr_key: byte;
  pressed: boolean = false;

implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if not pressed then
  begin
    pr_key := key;
    pressed := true;
  end
  else
  begin
    keybd_event(Ord(pr_key), MapVirtualKey(Ord(pr_key), 0), KEYEVENTF_KEYUP, 0);
    key := 0;
    keybd_event(Ord(pr_key), MapVirtualKey(Ord(pr_key), 0), 0, 0);
  end;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
pressed:=false;
end;