如何让DateTimePicker控件既能显示日期又能显示时间,并且可以修改保存?
如何让DateTimePicker控件既能显示日期又能显示时间,并且可以修改保存?
我的解决方法:
首先设置控件的format属性为yyyy年MM月dd日 HH时mm分ss秒,kind属性为dtkTime.
在想要保存控件里的值的地方,比如change事件中(当然这不是较好的地方,只取一次就够,这样只是方便各位查看效果),写下列代码:
procedure Tfrom_sms.DateTimePicker2Change(Sender: TObject);
var
ss:string;
pp:pchar;
begin
//time1:=formatdatetime('yyyy年MM月dd日 HH时mm分ss秒',DateTimePicker2.Datetime);
//用控件的Datetime属性不行.因为它只记录kind属性规定的部分(或者是dtkDate或者是dtkTime)的改变,而对另一部分不会记录改变.
pp:=StrAlloc(20); //为PChar分配内存
DateTimePicker2.GetTextBuf(pp,20);
ss:=pp;
showmessage(ss);
StrDispose(pp); //为PChar释放内存,必须要有,否则报错.
end;
需要注意或者说是目前一个BUG的地方是:
如果先修改日期,则在修改时间时日期会自动还原.
所以只能先修改时间,然后再修改日期.
不知各位是否可以解决这个问题.
之所以不用MASKEDIT(或者干脆就是EDIT)控件,是希望能借助DateTimePicker的一些优点:
1.输入有效验证(年月日时分秒都有边界,还涉及闰年闰月等问题)
2.上下调整箭头.各位可以试试,虽然平时它是时间部分专用的,但在我改过的这个例中,它对日期部分也有效果.当然,这是次要的,可有可无.主要是第1点.
