当前位置：首页 → 问答吧 → DateTimePicker的时间的设置问题，为什么我改变了日期，可是读出来时，还是不变！

DateTimePicker的时间的设置问题，为什么我改变了日期，可是读出来时，还是不变！

时间：2011-08-24

来源：互联网

DateTimePicker的时间的设置问题，为什么我改变了日期，可是读出来时，还是不变！
我是在界面上上手动修改的日期，但是测试的时候在onChange事件函数中读取出来的date值却始终都是初始化的值，我是用的系统时间来进行初始化。

作者: luwenjin19881016 发布时间: 2011-08-24

要问就打代码贴出来....

作者: babydog01 发布时间: 2011-08-24

具体代码怎么写的呢？

作者: lrcitpower 发布时间: 2011-08-24

这个还真没有遇到过，贴代码吧

作者: rainychan2009 发布时间: 2011-08-24

两个组件dtpStartTime、dtpEndTime都为datetimepicher类型
初始化：（日期部分用的是系统默认的值）
dtpStartTime.Time := StrToTime('00:00:00');
dtpEndTime.Time := StrToTime('00:00:00');

在调试时取出日期值：（写在dtpEndTime的onChange事件函数中）
strngrdOutlineInfo.cells[1,1] := DateToStr(dtpStartTime.Date);
strngrdOutlineInfo.cells[1,2] := DateToStr(dtpEndTime.Date);
结果在运行时每一次更改dtpEndTime组件中的值时dtpEndTime组件中显示的值变了，但是 strngrdOutlineInfo.cells[1,1]和strngrdOutlineInfo.cells[1,2]中的值（即从）dtpEndTime中取出来的值没有改变，还是初始化时的值

作者: luwenjin19881016 发布时间: 2011-08-24

楼主：我帮你试了一下，没有发现任何问题：

procedure TForm1.FormCreate(Sender: TObject);
begin
dtpStartTime.Time := StrToTime('00:00:00');
dtpEndTime.Time := StrToTime('00:00:00');
end;

procedure TForm1.dtpEndTimeChange(Sender: TObject);
begin
strngrdOutlineInfo.cells[1,1] := DateToStr(dtpStartTime.Date);
strngrdOutlineInfo.cells[1,2] := DateToStr(dtpEndTime.Date);
end;

strngrdOutlineInfo.cells[1,1]和strngrdOutlineInfo.cells[1,2]中的值，可以随着dtpStartTime、dtpEndTime而改变。

你初始化dtpStartTime、dtpEndTime的语句是写在哪里的？

作者: zhoufs 发布时间: 2011-08-24

先显示到其他的组件里试试，例如：Edit或label。

作者: shijies 发布时间: 2011-08-24

很奇怪，我按照楼主你的代码在我的D2010中测试没有发现你所遇到的问题呀！
楼主给DateTimePicker组件赋初始值仅仅是初始化了其时间的部分，其日期部分仍然是添加组件当天的日期，这应该没有异议的。
那么楼主改变DateTimePicker组件的值，然后再显示在StringGrid的cell中应该没有问题啊。

作者: Terony 发布时间: 2011-08-24

引用 5 楼 zhoufs 的回复:
楼主：我帮你试了一下，没有发现任何问题：

procedure TForm1.FormCreate(Sender: TObject);
begin
dtpStartTime.Time := StrToTime('00:00:00');
dtpEndTime.Time := StrToTime('00:00:00');
end;

procedure TForm1.dtpEn……

初始化在TForm1.FormCreate(Sender: TObject);函数里

作者: luwenjin19881016 发布时间: 2011-08-24

引用 7 楼 terony 的回复:
很奇怪，我按照楼主你的代码在我的D2010中测试没有发现你所遇到的问题呀！
楼主给DateTimePicker组件赋初始值仅仅是初始化了其时间的部分，其日期部分仍然是添加组件当天的日期，这应该没有异议的。
那么楼主改变DateTimePicker组件的值，然后再显示在StringGrid的cell中应该没有问题啊。

我的是delphi6

作者: luwenjin19881016 发布时间: 2011-08-24

DateTimePicker的时间的设置问题，为什么我改变了日期，可是读出来时，还是不变！

热门阅读

热门下载