鱼C论坛

 找回密码
 立即注册
查看: 299|回复: 0

维文输入法的问题?(急)

[复制链接]
最佳答案
0 
发表于 2018-3-10 03:04:47 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
我想delphi xe10.2 做一个维文输入法,但是 Edit1 的Edit1KeyPress事件 输入字符 Edit1 显示两次 这个怎么解决?还有delphi Edit1 内容怎么追加?
fffffff7.png
代码:
  1. procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
  2.     var
  3.     iKeyValue: integer;
  4.     s:string;
  5. begin
  6.        iKeyValue := ord(Key);
  7.        case iKeyValue of
  8.       47:s:='ئ';
  9.       109:s:='م';
  10.       110:s:='ن';
  11.       98:s:='ب';
  12.       118:s:='ۈ';
  13.       99:s:='غ';
  14.       120:s:='ش';
  15.       122:s:='ز';
  16.       108:s:='ل';
  17.       107:s:='ك';
  18.       106:s:='ق';
  19.       104:s:='ى';
  20.       103:s:='ە';
  21.       102:s:='ا';
  22.       100:s:='د';
  23.       115:s:='س';
  24.       97:s:='ھ';
  25.       112:s:='چ';
  26.       111:s:='ۋ';
  27.       105:s:='ې';
  28.       117:s:='ر';
  29.       121:s:='ت';
  30.       116:s:='ي';
  31.       114:s:='ۇ';
  32.       101:s:='ڭ';
  33.       119:s:='و';
  34.       113:s:='پ';
  35.       75:s:='ۆ';
  36.       68:s:='ژ';
  37.       72:s:='خ';
  38.       74:s:='ج';
  39.       71:s:='گ';
  40.      end;
  41.        Edit1.Text:=s;

  42. end;

  43. end.
复制代码
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

小甲鱼强烈推荐上一条 /1 下一条

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号

GMT+8, 2018-9-22 14:19

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表