Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > UpDown и DateTimePicker

Автор: Манкуни@нец 7.11.2005, 08:25

Как связать UpDown с DateTimePicker чтобы отнимались/прибавлялись дни smile

Автор: ~FoX~ 7.11.2005, 11:26

Манкуни@нец
Ну так они и так тнимаются прибовляются....

Ну или так

Код


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = vk_UP then DateTimePicker1.Date := DateTimePicker1.Date + 1;
  if Key = vk_Down then DateTimePicker1.Date := DateTimePicker1.Date - 1;
end;

Только KeyPreeview на форме поставь в true

Автор: Albinos_x 7.11.2005, 11:26

Код


DateTimePicker1.Date:=DateTimePicker1.Date+1;

Автор: Манкуни@нец 7.11.2005, 14:20

~FoX~ В смысле не через клавиши UpDown а через компонент UpDown.

Автор: ~FoX~ 7.11.2005, 15:23

Манкуни@нец
Ня:

Код


procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
  if Button = btNext then DateTimePicker1.Date := DateTimePicker1.Date + 1;
  if Button = btPrev then DateTimePicker1.Date := DateTimePicker1.Date - 1;
end;

Автор: Манкуни@нец 7.11.2005, 20:27

~FoX~ Спасибо, я просто как кнопки btNext, btPrev называются не знал

Автор: ilya198293 28.5.2007, 18:07

А при изменении значения DateTimePicker1.Date таким способом, какое событие генериться?
DateTimePicker1Change и DateTimePicker1CloseUp у меня стоят в обработке и пропускают событие.

Автор: lukas 28.5.2007, 21:17

Манкуни@нец, а ты зажми ctrl и нажми на TUDBtnType и найдешь все значения которые может принимать Button smile