Форум по Delphi программированию - Показать сообщение отдельно - Как обработать нажатие стрелок вверх, вниз

Electronic_Arts · #11 07.11.2010, 13:54

Не может быть
код это надо скопировать в обработчик OnKeyDown

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case key of
38: edit1.text:=inttostr(strtoint(edit1.text)+1); //Вверх
40: edit1.text:=inttostr(strtoint(edit1.text)-1); //Вниз
37: edit2.text:=inttostr(strtoint(edit2.text)-1); //Влево
39: edit2.text:=inttostr(strtoint(edit2.text)+1); //Вправо
end;
end;

Если опять не заработает - то дай сюда свою программу - допишу и отдам