QQ登录

只需一步,快速开始

登录 | 立即注册 | 找回密码

主题

帖子

荣誉

VIP至尊会员

Rank: 15Rank: 15Rank: 15

积分
18
查看: 241|回复: 0

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

[复制链接]
最佳答案
0 
累计签到:2 天
连续签到:1 天
mazil 发表于 2018-3-10 03:04:47 2410 | 显示全部楼层 |阅读模式

马上注册加入鱼C,享用更多服务吧^_^

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

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.
复制代码
楼层
跳转到指定楼层

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

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

    移动客户端下载(未启用)
    微信公众号

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

Copyright 2018 鱼C论坛 版权所有 All Rights Reserved.

Powered by Discuz! X3.3 Copyright
© 2001-2018 Comsenz Inc.    All Rights Reserved.

小黑屋|手机版|Archiver|鱼C工作室 ( 粤公网安备 44051102000370号 | 粤ICP备11014136号

GMT+8, 2018-6-23 12:39

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