[Gareth]

Написал будильник на делфи.
Опишу саму прогу:
на форму выведено системное время, 3 комбобокса (часы, минуты и секунды). Еще есть edit, в него попадают цифры из комбобоксов (часы:минуты:секунды). И уже с edit`a сравниваем время с системным, если равно то будильник срабатывает...
Всё работает как мне надо, кроме одного! Хотелось бы добавить кнопки быстрого набора, то-есть не копаться в комбобоксах, что бы выставить 5 минут, а сразу нажать на кнопку, которая указала бы в комбобоксе эти самые 5 минут.

Пробовал вот так:

Код:

 var
 dt: TDateTime;
  Hours, Minutes, Seconds, Milliseconds: Word;
begin
dt := GetTime;
  DecodeTime(dt, Hours, Minutes, Seconds, Milliseconds);
cbb1.Text:=IntToStr(Hours); // выводит в первый комбобокс часы
cbb2.Text:=IntToStr(Minutes+5); // выводит минуты и прибавляет 5 минут
end;

Первое время думал что всё сделал правильно, но потом понял что нет. Если время будет к примеру 22:59, этот код нам приплюсует еще 5 минут, это будет 22:64, но как мы все знаем, минут в часах всего 60
Каким образом можно сделать подобные кнопки быстрого набора ? Не обязательно что бы это происходило через комбобоксы!
Посоветуйте что-нибудь. Спасибо.

похвастаться

[PhoeniX]

Во-первых, SpinEdit. Во-вторых, if...then. То-есть, если сумма текущих минут и того, что добавляем, больше 59, то вычесть 60. Аналогично с часами (только уже по модулю 24).

[Gareth]

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

Во-первых, SpinEdit. Во-вторых, if...then. То-есть, если сумма текущих минут и того, что добавляем, больше 59, то вычесть 60. Аналогично с часами (только уже по модулю 24).

По подробнее можно? Я практически ничего не понял. Я новичок еще в этом. Писать за меня код не прошу, просто объясните подробно пожалуйста.

Код:

if cbb2.ItemIndex >60 then
cbb2.ItemIndex:=(-60);

Так?

[PhoeniX]

Замени ComboBox на SpinEdit, и сразу станет проще.

[lmikle]

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

Замени ComboBox на SpinEdit, и сразу станет проще.

А еще есть модуль DateUtils, в котором есть куча полезный функций работы с датой и временем.
А еще есть такой компонент - TDateTimePicker, который позволяет вводить время...

[Alegun]

Оффтоп:

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

А еще есть модуль DateUtils, в котором есть куча полезный функций работы с датой и временем...

Да не, думаю ТСу это будет пока сложно, судя по предыдущим постам, да и похоже, ему надо чтоб раздельно вводились часы, минуты etc.

По теме. УК, кидай прям по совету Феникса, на "похвастаться" три SpinEdit`а (компонента живет на вкладке Samples) и прикрути к ним одно на всех событие OnChange

Код:

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
 with (Sender as TSpinEdit) do
  begin
   if Value = MinValue then Value:= MaxValue - 1;
   if Value = MaxValue then Value:= MinValue + 1;
  end;{with}
end;

так будет проще, единственное что ещё надо, так это у всех задать MinValue = -1, а MaxValue у первого = 24, а у двух других равным 60.