MaskEdit日期输入问题！

[zch619]

怎样用MaskEdit输入一个正确的日期？例如：2005-05-03日在输入时在输入月份时在第5位上输入5就自动判断出输入的大于1，并将其自动调整为05？日的输入同样！

[Selinaxiuer]

DELPHI的maskedit 有输入5就自动判断出输入的大于1，并将其自动调整为05 的功能嗎?
沒有吧? 重新編寫程式看能否實現此功能.

[zch619]

就是想这么做呀！

[hmzgz81]

这个不好弄吧，

用DataTimePicker 把format设置为 yyyy-MM-dd

[hmzgz81]

要不然就要找找第三方控件看看罗。

再就只有自己写个这样的控件了！

[zch619]

关键，我想初始值为0000-00-00，然后用户如果不输入的话，我在程序中判断出其值为0000-00-00就不往数据库保存!
用DataTimePicker这个总是要有一个日期，感觉不好！

[zch619]

解决了，大家看看是否有更好的办法：
procedure TForm1.medt1KeyPress(Sender: TObject; var Key: Char);
begin
if (medt1.SelStart=5) and (Key in ['2'..'9']) then
begin
medt1.SelLength:=2;
medt1.SelText:='0'+key;
end;
if (medt1.SelStart=8) and (Key in ['4'..'9']) then
begin
medt1.SelLength:=2;
medt1.SelText:='0'+key;
end;
end;

[zch619]

这个有个缺点就是在用黏贴时无法判断！
在onexit中加了日期有效性的判断！现在只能先这样了！

[hongqi162]

也只能这样了

[may_05]

如果想要初始时间为空的话用TdxDateEdit也可以,它的初始可以不带任何时间

[O0ooo0oO0o]

procedure TForm1.Edit1Change(Sender: TObject);
begin
if length(edit1.text)=4 then
edit1.SelText:='-';
if length(edit1.text)=7 then
edit1.SelText:='-';
end;