UpDown1 добавить или убавить на 1 от текущего значения

[Shouldercannon]

В Edit1 есть значение. Нужно прибавить или убавить значение заданное с помощью UpDown1 на 1. Например начальное значение в Edit1 4, жмём на UpDown1 (стрелка вверх) и получаем 6, 7, 8, и так по возрастающей или 8, 7, 6 (стрелка вниз) по убывающей.

[maLoy*508]

и в чем собственно вопрос??
________
собственно у UpDown есть свойство Associate, поставь там нужный Edit и будет тебе счастье =)

[Stilet]

Ну и в чем проблема?
Edit.Text:=IntToStr(StrToInt(Edit.T ext)+1)

[MaxNik2009]

Обрабатывай операции с кнопками(нажатие, удержание, отпускание) на выбор..
если тебе надо что бы держать кнопку upDoun и цифры менялись постоянно то это через таймер.

[Shouldercannon]

Без удержания. Stilet спасибо за код, но есть один не достаток добавка только в +, в - нету.

[Stilet]

Ну так напиши
Что сложного написать тоже самое но с минусом?

[Shouldercannon]

Я имел ввиду нажимаешь на стрелку вниз значение убавляется на 1, жмешь на стрелку вверх прибавляется на 1. Я же не напишу так

Edit1.Text := IntToStr(StrToInt(Edit1.Text) + 1);
Edit1.Text := IntToStr(StrToInt(Edit1.Text) - 1);

Оно попросту не будет работать.

[Grag]

TUDBtnType = (btNext, btPrev);

Так ты выбирай действие в зависимости от того, что нажали: btNext или btPrev

[MaxNik2009]

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if key = vk_down then  // кнопка вниз
  Edit1.Text := IntToStr(StrToInt(Edit1.Text) - 1);
if key = vk_Up then  // кнопка вверх
  Edit1.Text := IntToStr(StrToInt(Edit1.Text) + 1);
end;

[maLoy*508]

простите за флуд, но зачем столько лишнего писать-то??
как я писал выше

собственно у UpDown есть свойство Associate, поставь там нужный Edit и будет тебе счастье =)

по-моему он для этого и предназначен... и не надо ничего изобретать...