主题：关于日期输入的问题
lgt9732
[专家分：170] 发布于 2007-05-10 15:41:00
在输入日期时，如何能使我在输入年份之后，会自动在年份之后加上“－”来做为与月份之间的分隔！
回复列表 （共14个回复）
11 楼
长尾兔 [专家分：3630] 发布于 2007-05-17 11:50:00
不是结贴了吗? 还有什么问题吗?
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
with TEdit(Sender) do
if ((Length(Text) = 3) or (Length(Text) = 6)) and (not(Key=#8)) then
begin
Text := Text + Key + '-';
SelStart := Length(Text)+1;
Key := #0;
end;
end;
其实,回答这样的问题对我来说不算什么, 但我感觉你给分有点吝啬啊.....
哈哈......
12 楼
lgt9732 [专家分：170] 发布于 2007-05-17 14:19:00
呵 。。我还以为可以结贴了，没想到一试还是有点问题的！不过，还是要谢谢你。现在应该是没有什么问题了！
13 楼
zaliang [专家分：1010] 发布于 2007-05-17 15:37:00
把代码放在KeyUp里面不就可以了?
14 楼
lgt9732 [专家分：170] 发布于 2007-05-18 08:59:00
这两个事件有什么区别吗？我知道KeyPress这个事件，那KeyUp是什么事件？
我来回复
您所在位置：