5,386
社区成员
发帖
与我相关
我的任务
分享怎么样在edit中输入固定格式的日期？
请问：怎样才能在edit中输入“2003-10-11”样的固定格式，且edit中放入两个短横线如“ - - ”让用户，只输入日期数字就可以了，不知各位是否明白我的意思。
...全文
请发表友善的回复…
发表回复
ghostmaster 2003-10-19
- 打赏
- 举报
楼上的说得对！
hmily1688 2003-10-19
- 打赏
- 举报
用MaskEdit控件，把EditMask内容设成!9999/99/00;1;_就OK了，不用再控制的是否为数字
sixgj 2003-10-19
- 打赏
- 举报
限制为只接收数字的例程如下：
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9',#8]）then
begin
key:=#0;
MessageBeep(1);
end;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9',#8]）then
begin
key:=#0;
MessageBeep(1);
end;
end;
coreblood 2003-10-19
- 打赏
- 举报
maskedit 还可以用 DateTimePicker
wk0 2003-10-19
- 打赏
- 举报
gz
hkbarton 2003-10-19
- 打赏
- 举报
明白，试试用maskedit
