如何在TEdit中将键盘输入的英文单引号'变成中文单引号 ’
2004-04-16 13:18
363 查看
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
CurText: String;
CurPos, CurLng: integer;
begin
if key ='''' then
begin
key := #0;
CurText := TEdit(Sender).Text;
CurPos := TEdit(Sender).SelStart;
CurLng := TEdit(Sender).SelLength;
if CurLng >0 then
Delete(CurText, CurPos+1, CurLng);
Insert('’', CurText, CurPos+1);
TEdit(Sender).Text := CurText;
TEdit(Sender).SelStart := CurPos+2;
end;
end;
版权所有 2004 cjsh 保留所有权利。我的邮箱:wjh_wy@163.com
var
CurText: String;
CurPos, CurLng: integer;
begin
if key ='''' then
begin
key := #0;
CurText := TEdit(Sender).Text;
CurPos := TEdit(Sender).SelStart;
CurLng := TEdit(Sender).SelLength;
if CurLng >0 then
Delete(CurText, CurPos+1, CurLng);
Insert('’', CurText, CurPos+1);
TEdit(Sender).Text := CurText;
TEdit(Sender).SelStart := CurPos+2;
end;
end;
版权所有 2004 cjsh 保留所有权利。我的邮箱:wjh_wy@163.com
相关文章推荐
- IM聊天的键盘中文输入点击删除键变成英文bug
- IOS开发 textView输入文字时键盘切换为中文输入法后,第一个输入的字母变成英文
- java中如何判断输入的是英文还是中文
- 如何将Calendar日历控件中文星期变成英文
- js端如何判断输入字段的长度(中文/英文)
- //对中文键盘输入英文 (去除中文系统自带的UTF8编码)
- 如何处理 键盘弹起中文英文高度问题
- 如何让html输入域中只填写英文,不能填写中文
- 如何将ios键盘返回由英文设置成中文
- 如何快速让你的中文XP变成英文XP
- 如何将VS2010的代码提示从英文变成中文
- 如何将VS2010的代码提示从英文变成中文
- 笔记本键盘输入错乱,字母都变成数字了
- 使用VS2008开发MFC,如何支持中文输入?
- java判断scanner输入是中文、英文字母、数字还是特殊字符
- <input>禁止键盘及中文输入
- 在java中如何用键盘输入一个数,字符,字符串
- sublime text 2当中如何设置中文输入支持[ubutu 14.04系统]
- 如何通过键盘输入整型数给枚举变量赋值
- 为什么添加/删除程序中的中文变成英文的了