• From: Санкт-Петербург
  • Registered: 2017-03-09
  • Posts: 266

Topic: Выбор числа

Здравствуйте. Кто подскажет, как реализовать поле с выбором числа (например срока гарантии) по средствам расположенных в правой части поля стрелочек вверх/вниз. По принципу как это сделано в настройке размеров формы (в свойствах)по высоте/ширине?

надо идти вперёд....
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Выбор числа

Здравствуйте


Именно так сделать не получиться.


Можете рядом разместить две кнопки, которые будут вместо этих стрелочек.

procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
begin
    Form1.Edit1.Value := Form1.Edit1.Value + 1;
end;

procedure Form1_Button3_OnClick (Sender: string; var Cancel: boolean);
begin
    if Form1.Edit1.Value > 0 then Form1.Edit1.Value := Form1.Edit1.Value - 1;
end;
Dmitry.
  • From: Санкт-Петербург
  • Registered: 2017-03-09
  • Posts: 266

Re: Выбор числа

DriveSoft wrote:

Здравствуйте


Именно так сделать не получиться.


Можете рядом разместить две кнопки, которые будут вместо этих стрелочек.

procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
begin
    Form1.Edit1.Value := Form1.Edit1.Value + 1;
end;

procedure Form1_Button3_OnClick (Sender: string; var Cancel: boolean);
begin
    if Form1.Edit1.Value > 0 then Form1.Edit1.Value := Form1.Edit1.Value - 1;
end;

Спасибо. Сейчас попробую.

надо идти вперёд....
  • From: Санкт-Петербург
  • Registered: 2017-03-09
  • Posts: 266

Re: Выбор числа

kovalenko wrote:
DriveSoft wrote:

Здравствуйте


Именно так сделать не получиться.


Можете рядом разместить две кнопки, которые будут вместо этих стрелочек.

procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
begin
    Form1.Edit1.Value := Form1.Edit1.Value + 1;
end;

procedure Form1_Button3_OnClick (Sender: string; var Cancel: boolean);
begin
    if Form1.Edit1.Value > 0 then Form1.Edit1.Value := Form1.Edit1.Value - 1;
end;

Спасибо. Сейчас попробую.

Работает.!!! Спасибо.

надо идти вперёд....