Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2014.01.12;
Скачать: CL | DM;

Вниз

Как листать DateTimePicker помесячно ?   Найти похожие ветки 

 
Роман   (2013-03-16 00:14) [0]

В общем установил DateTimePicker в режим UpDown и набросал следующие строки ))):

var
 ColChasForm: TColChasForm;
 valDat: TDateTime;

implementation

{$R *.dfm}

procedure TColChasForm.DateTimePicker1Change(Sender: TObject);
begin
  if DateTimePicker1.Date > valDat then begin
   valDat:=IncMonth(valDat,1);
   DateTimePicker1.Date:=valDat;
end else if DateTimePicker1.Date < valDat then begin
   valDat:=IncMonth(valDat,-1);
   DateTimePicker1.Date:=valDat;
end else exit;
end;

procedure TColChasForm.FormCreate(Sender: TObject);
var
Year,Month,Day: Word;
begin
DecodeDate(Date,Year,Month,Day);
DateTimePicker1.Date:=EncodeDate(Year,Month,1);
valDat:=EncodeDate(Year,Month,1);
end;

end.


т.е. объявил глобальную переменную, туда сохраняю текущее время, если пикер меняется то по идее должно либо прибавлять ли отнимать месяц, однако парадокс при нажатии в пикере стрелочки либо вверх либо вниз оно только прибавляет но никак ни хочет отнимать месяц. Посмотрел пошагово, оказывается при нажатии на кнопку вниз DateTimePicker1.Date почему то принимает значение больше установленного по умолчанию в проц. FormCreate, хотя по идее вниз значит должно становится меньше, получается истинно всегда только первое условие, а теперь вопрос в чем фикус-пикус ?


 
clickmaker ©   (2013-03-16 16:21) [1]

> листать DateTimePicker помесячно ?

а зачем? если юзер захочет помесячно, он встанет на цифры месяца и будет листать.
А так - можно просто комбик с месяцами сделать


 
Германн ©   (2013-03-17 02:40) [2]


> В общем установил DateTimePicker в режим UpDown

Зачем именно в этот режим установил?


 
ВО   (2013-03-18 00:43) [3]


> в чем фикус-пикус ?

время (обозначающее отрезки времени меньше "дня") не равно 0?


 
Германн ©   (2013-03-18 01:30) [4]


> время (обозначающее отрезки времени меньше "дня") не равно
> 0?

Допустим неравно. И что из этого?


 
clickmaker ©   (2013-03-18 11:36) [5]

> И что из этого?

то, что в DateTimePicker1.Date всегда будет больше, чем в valDat


 
Германн ©   (2013-03-19 01:32) [6]


> clickmaker ©   (18.03.13 11:36) [5]
>
> > И что из этого?
>
> то, что в DateTimePicker1.Date всегда будет больше, чем
> в valDat
>

Почему? Из-за DateTimeToSystemTime?


 
Роман   (2013-03-19 03:46) [7]

http://www.sql.ru/forum/actualthread.aspx?tid=1010975



Страницы: 1 вся ветка

Текущий архив: 2014.01.12;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.008 c
2-1363783734
Alex_C
2013-03-20 16:48
2014.01.12
TEdit+TStringGrid=странное поведение


2-1363348236
kirat
2013-03-15 15:50
2014.01.12
Алгоротм. Формулу в цикл.


15-1374273946
ProgRAMmer Dimonych
2013-07-20 02:45
2014.01.12
Забанили в гугле. В поисковике. Два раза за неделю.


15-1374868151
Cii
2013-07-26 23:49
2014.01.12
Комп виснет...


1-1320399876
defen2204
2011-11-04 12:44
2014.01.12
переменная типа Word и массив типа Byte