现在想输入时以特定的字符或数字为头。如:只能以1开头的数字,10001、10002
解决方案 »
- 一般WINDOWS的API在什么时候用到?
- 用什么表格显示?
- leadtools12以上不支持delphy5吗?
- 哪里有最新的DELPHI7.1 UPDATE的补丁下载
- 尋"答"啟事:用TSimpleDataSet+MSSQL表的自動增量字段(Identity)如何使用並在DELPHI數據表中錄入數據及顯示?OnLine!
- 各位大大请问如何获取本地连接的信息啊?
- 菜鸟求助!sql数据库tiff的存储和读取。Delphi语言
- 转让一整套ERP源码和数据库
- 在dxDBGrid中怎样给指定的记录加颜色???
- Form与Form之间的数据传送问题。
- 请问怎么用WebBrowser控件提取链接并进行点击
- 关于InterBase数据库配置的问题
i:=copy(edit1.text,1,1);
if i<>'1' then
key:=0;
end;
var
s:string;
begin
s:= edit1.Text;
if (trim(s)='')and(key <> '1')then
key:= #0;
end;
关于tedit输入得一些用法
只能输入数字
OnKeyPress事件中
begin
if not (Key in ['0'..'9']) and (ord(Key)<>8) then
Key:=#0;
end;在onkeydown事件中写if key=vk_return then
begin
try
StrToInt(Edit1.text);
except
Edit1.clear;
end;
end;
SetWindowLong(Edit1.Handle, GWL_STYLE,GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);procedure Tbook.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in['0'..'9',#8,#13]) then 如果愿意还可以加上#13
begin
key:=#0;
MessageBeep(1);
application.MessageBox('请输入数字类型的!','提示',mb_iconquestion);
end;
end;