Delphi 7 如何设定edit显示4位数 如0001
1个回答
展开全部
你可以在EDIT控件的KeyPress事件中加入以下代码试一下。
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var i:integer;
begin
if key=#13 then
Begin
for i:=1 to 4-length(edit1.Text) do
Begin
Edit1.Text:='0'+Edit1.Text;
end;
end;
end;
这样，你在Edit1控件中输入1，回车后就会变成0001.
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var i:integer;
begin
if key=#13 then
Begin
for i:=1 to 4-length(edit1.Text) do
Begin
Edit1.Text:='0'+Edit1.Text;
end;
end;
end;
这样，你在Edit1控件中输入1，回车后就会变成0001.
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
