Оффтоп:
Цитата:
|
Сообщение от 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.