在Onchange事件中判断禁止输入的符号是否在text中
解决方案 »
- 如何取得memo最后的字符
- 请问:如果我要把表中符合要求的记录,逐条添加到Listbox中,下面我的写法错在哪里了呢?
- 100分再次求救一个dxDBTreeBom三方控件
- 终于多了一条内裤,呵呵,不过还是只能给100,要不我就给200了。
- 100分请高手留步!!关于socket传送数据!
- CSDN升级的问题,大家都来说说!
- 在线等待:如何给QRChart的X,Y轴标注?
- tabcontrol和pagecontrol有什么区别?
- 谁知道,这里为什么把版面改的这么恶心?给分,给分…… 送分……
- 怎样得到规定格式的时间和日期的字符串?
- 我好笨哦,连个124的0.782次方都算不出来...,指点一下吧
- delphi怎么判断某路径是否存在,例如:C:\my\slj
if (Sender as TEdit).text<>'' then
begin
if Copy((Sender as TEdit).text,Length((Sender as TEdit).text),1)='指定字符' then
begin
(Sender as TEdit).text:=
Copy((Sender as TEdit).text,1,Length((Sender as TEdit).text)-1);
(Sender as TEdit).SelStart:=Length((Sender as TEdit).text);
end;
end;
禁止输入指定字符,如要求提示信息,自己加吧!
if Key in ['制定字符'] then // 集合中是指定字符或其ASCII码
begin
Key := #0; //什么都不做
Beep;
end;
if (Sender as TEdit).text<>'' then
begin
if pos('指定字符' ,(Sender as TEdit).text)>0 then
begin
showmessage('禁止输入'+'指定字符' )
end;
end;
if key in ['指定字符]
then abort;
if key=vk_... then abort;
如果不使用上述方法,就要在键盘事件里判断了,不妨自己试试上面各位的方法。