[syuta]

Как обработать нажатие стрелок вверх, вниз, так что бы в поле Edit 1 число увеличивалось на 1 когда жмешь вверх, или на -1 когда вниз.

[Electronic_Arts]

Точно не помню по моему так

Код:

begin
case key of
38: edit1.text:=inttostr(strtoint(edit1.text)+1);
40: edit1.text:=inttostr(strtoint(edit1.text)-1);
end;
end;

не забудь что первоначальное значение на Edit должен быть число - а не текст

[Страдалецъ]

Вы видимо решили самокат изобрести SpinEdit - не для вас?

[syuta]

Сообщение от Страдалецъ

Вы видимо решили самокат изобрести SpinEdit - не для вас?

Я начинающий и не совсем понимаю о чем вы говорите.

[Electronic_Arts]

SpinEdit это готовый компонент на Delphi - как раз то что ты ищешь...

- а я как всегда пошел тяжелым путем..

[syuta]

и как это реализовать? напишите код если можно, желательно с коментами

[syuta]

Господа позвольте описать мою проблему полностью:
есть два поля edit в форме, когда запускаешь программу чтоб при нажатии стрелок вверх – вниз уменьшалось (или увеличивалось) число в первом окне ввода (на 1), а при нажатии стрелок влево – вправо уменьшалось (или увеличивалось) число во втором окне ввода (на 0,01).

[Electronic_Arts]

Стрелок чего КЛАВИАТУРЫ?
если хочешь изменения значения при нажатии на клавишы на клаве
вот тебе код

Код:

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(edit1.text)-1); //Влево
39: edit2.text:=inttostr(strtoint(edit1.text)+1); //Вправо
end;
end;

[syuta]

Сообщение от Electronic_Arts

Стрелок чего КЛАВИАТУРЫ?
если хочешь изменения значения при нажатии на клавишы на клаве
вот тебе код

Код:

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(edit1.text)-1); //Влево
39: edit2.text:=inttostr(strtoint(edit1.text)+1); //Вправо
end;
end;

не работает!!

[syuta]

Да стрелок клавиатуры!

[Electronic_Arts]

Не может быть
код это надо скопировать в обработчик 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;

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

[syuta]

Доработайте задачу , чтоб при нажатии стрелок вверх – вниз уменьшалось (или увеличивалось) число в первом окне ввода (на 1), а при нажатии стрелок влево – вправо уменьшалось (или увеличивалось) число во втором окне ввода (на 0,01).

[syuta]

Буду при много благодарен если поможете!!!

[Electronic_Arts]

Не хватает куча файлов

сохрани свой проект в одну папку и архивируй папку и выложи сюда

[syuta]

размер архива всего проекта не позволяет выложить на форум! выложу по очереди!