📄 tdly.pas
字号:
else
//只能输入数字、小数点和回车、退格
if (key in ['.']) and (pos('.',ld.Text)>0) then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
//只能输入一个小数点
if (key in ['.']) and(length(ld.Text)<1) then
begin key:=#0; showmessage('^_^ 你输入错了!');end
else
//第一位不能为小数点
if (key in ['0']) and (pos('.',ld.Text)<1)and(copy(ld.Text,1,1)='0') then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
if key = #13 then
yld.SetFocus;
end;
procedure Ttdlyxxfrm.yldKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['.','0'..'9',#8,#13]) then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
//只能输入数字、小数点和回车、退格
if (key in ['.']) and (pos('.',yld.Text)>0) then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
//只能输入一个小数点
if (key in ['.']) and(length(yld.Text)<1) then
begin key:=#0; showmessage('^_^ 你输入错了!');end
else
//第一位不能为小数点
if (key in ['0']) and (pos('.',yld.Text)<1)and(copy(yld.Text,1,1)='0') then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
if key = #13 then
gml.SetFocus;
end;
procedure Ttdlyxxfrm.gmlKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['.','0'..'9',#8,#13]) then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
//只能输入数字、小数点和回车、退格
if (key in ['.']) and (pos('.',gml.Text)>0) then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
//只能输入一个小数点
if (key in ['.']) and(length(gml.Text)<1) then
begin key:=#0; showmessage('^_^ 你输入错了!');end
else
//第一位不能为小数点
if (key in ['0']) and (pos('.',gml.Text)<1)and(copy(gml.Text,1,1)='0') then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
if key = #13 then
sml.SetFocus;
end;
procedure Ttdlyxxfrm.smlKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['.','0'..'9',#8,#13]) then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
//只能输入数字、小数点和回车、退格
if (key in ['.']) and (pos('.',sml.Text)>0) then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
//只能输入一个小数点
if (key in ['.']) and(length(sml.Text)<1) then
begin key:=#0; showmessage('^_^ 你输入错了!');end
else
//第一位不能为小数点
if (key in ['0']) and (pos('.',sml.Text)<1)and(copy(sml.Text,1,1)='0') then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
if key = #13 then
wclzld.SetFocus;
end;
procedure Ttdlyxxfrm.wclzldKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['.','0'..'9',#8,#13]) then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
//只能输入数字、小数点和回车、退格
if (key in ['.']) and (pos('.',wclzld.Text)>0) then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
//只能输入一个小数点
if (key in ['.']) and(length(wclzld.Text)<1) then
begin key:=#0; showmessage('^_^ 你输入错了!');end
else
//第一位不能为小数点
if (key in ['0']) and (pos('.',wclzld.Text)<1)and(copy(wclzld.Text,1,1)='0') then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
if key = #13 then
jd.SetFocus;
end;
procedure Ttdlyxxfrm.jdKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['.','0'..'9',#8,#13]) then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
//只能输入数字、小数点和回车、退格
if (key in ['.']) and (pos('.',jd.Text)>0) then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
//只能输入一个小数点
if (key in ['.']) and(length(jd.Text)<1) then
begin key:=#0; showmessage('^_^ 你输入错了!');end
else
//第一位不能为小数点
if (key in ['0']) and (pos('.',jd.Text)<1)and(copy(jd.Text,1,1)='0') then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
if key = #13 then
mp.SetFocus;
end;
procedure Ttdlyxxfrm.mpKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['.','0'..'9',#8,#13]) then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
//只能输入数字、小数点和回车、退格
if (key in ['.']) and (pos('.',mp.Text)>0) then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
//只能输入一个小数点
if (key in ['.']) and(length(mp.Text)<1) then
begin key:=#0; showmessage('^_^ 你输入错了!');end
else
//第一位不能为小数点
if (key in ['0']) and (pos('.',mp.Text)<1)and(copy(mp.Text,1,1)='0') then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
if key = #13 then
mcd.SetFocus;
end;
procedure Ttdlyxxfrm.mcdKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['.','0'..'9',#8,#13]) then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
//只能输入数字、小数点和回车、退格
if (key in ['.']) and (pos('.',mcd.Text)>0) then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
//只能输入一个小数点
if (key in ['.']) and(length(mcd.Text)<1) then
begin key:=#0; showmessage('^_^ 你输入错了!');end
else
//第一位不能为小数点
if (key in ['0']) and (pos('.',mcd.Text)<1)and(copy(mcd.Text,1,1)='0') then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
if key = #13 then
trcd.SetFocus;
end;
procedure Ttdlyxxfrm.trcdKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['.','0'..'9',#8,#13]) then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
//只能输入数字、小数点和回车、退格
if (key in ['.']) and (pos('.',trcd.Text)>0) then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
//只能输入一个小数点
if (key in ['.']) and(length(trcd.Text)<1) then
begin key:=#0; showmessage('^_^ 你输入错了!');end
else
//第一位不能为小数点
if (key in ['0']) and (pos('.',trcd.Text)<1)and(copy(trcd.Text,1,1)='0') then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
ELSE
if key = #13 then
glcd.SetFocus;
end;
procedure Ttdlyxxfrm.glcdKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
tsyd.SetFocus;
end;
procedure Ttdlyxxfrm.tsydKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
jtyd.SetFocus;
end;
procedure Ttdlyxxfrm.jtydKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['.','0'..'9',#8,#13]) then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
//只能输入数字、小数点和回车、退格
if (key in ['.']) and (pos('.',jtyd.Text)>0) then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
//只能输入一个小数点
if (key in ['.']) and(length(jtyd.Text)<1) then
begin key:=#0; showmessage('^_^ 你输入错了!');end
else
//第一位不能为小数点
if (key in ['0']) and (pos('.',jtyd.Text)<1)and(copy(jtyd.Text,1,1)='0') then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
ELSE
if key = #13 then
tl.SetFocus;
end;
procedure Ttdlyxxfrm.tlKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['.','0'..'9',#8,#13]) then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
//只能输入数字、小数点和回车、退格
if (key in ['.']) and (pos('.',tl.Text)>0) then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
//只能输入一个小数点
if (key in ['.']) and(length(tl.Text)<1) then
begin key:=#0; showmessage('^_^ 你输入错了!');end
else
//第一位不能为小数点
if (key in ['0']) and (pos('.',tl.Text)<1)and(copy(tl.Text,1,1)='0') then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
ELSE
if key = #13 then
gl.SetFocus;
end;
procedure Ttdlyxxfrm.glKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['.','0'..'9',#8,#13]) then
begin key:=#0;showmessage('@_@ 你输入错了!'); end
else
//只能输入数字、小数点和回车、退格
if (key in ['.']) and (pos('.',gl.Text)>0) then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
//只能输入一个小数点
if (key in ['.']) and(length(gl.Text)<1) then
begin key:=#0; showmessage('^_^ 你输入错了!');end
else
//第一位不能为小数点
if (key in ['0']) and (pos('.',gl.Text)<1)and(copy(gl.Text,1,1)='0') then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
ELSE
if key = #13 then
ncdl.SetFocus ;
end;
procedure Ttdlyxxfrm.ncdlKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['.','0'..'9',#8,#13]) then
begin key:=#0;showmessage('@_@ 你输入错了!'); end
else
//只能输入数字、小数点和回车、退格
if (key in ['.']) and (pos('.',ncdl.Text)>0) then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
else
//只能输入一个小数点
if (key in ['.']) and(length(ncdl.Text)<1) then
begin key:=#0; showmessage('^_^ 你输入错了!');end
else
//第一位不能为小数点
if (key in ['0']) and (pos('.',ncdl.Text)<1)and(copy(ncdl.Text,1,1)='0') then
begin key:=#0;showmessage('^_^ 你输入错了!'); end
ELSE
if key = #13 then
myjc.SetFocus ;
end;
procedure Ttdlyxxfrm.myjcKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['.','0'..'9',#8,#13]) then
begin key:=#0;showmessage('@_@ 你输入格式错了!'); end
else
//只能输入数字、小数点和回车、退格
if (key in ['.']) and (pos('.',ncdl.Text)>0) then
begin key:=#0;showmessage('^_^ 你输入格式错了!'); end
else
//只能输入一个小数点
if (key in ['.']) and(length(ncdl.Text)<1) then
begin key:=#0; showmessage('^_^ 你输入格式错了!');end
else
//第一位不能为小数点
if (key in ['0']) and (pos('.',ncdl.Text)<1)and(copy(ncdl.Text,1,1)='0') then
begin key:=#0;showmessage('^_^ 你输入格式错了!'); end
ELSE
if key = #13 then
gkmt.SetFocus ;
end;
procedure Ttdlyxxfrm.gkmtKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['.','0'..'9',#8,#13]) then
begin key:=#0;showmessage('@_@ 你输入格式错了!'); end
else
//只能输入数字、小数点和回车、退格
if (key in ['.']) and (pos('.',gkmt.Text)>0) then
begin key:=#0;showmessage('^_^ 你输入格式错了!'); end
else
//只能输入一个小数点
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -