可以在Delphi程序中设定输入的全角、半角和输入法的切换?

heming 2000-10-20 06:46:00

可以在Delphi程序中设定输入的全角、半角和输入法的切换。

...全文

252 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

peihexian 2000-10-23

打赏
举报

给我分吧!
procedure Ttest_frm.DBEdit1Enter(Sender: TObject);
begin
(Sender as TDbedit).ImeMode := imSHanguel; //转成半角
end;
全角的转换方法一样 .ImeMode就Ok了
输入法是.ImeName

猛禽 2000-10-20

打赏
举报

去MSDN上去查关于输入法的API，我以前用过但忘了，手边又没有MSDN，帮不上忙了

Delphi 获取系统中已安装的中文输入法，判断是否在中文状态,若是则关闭它，切换半角和全角模式，切换中文标点模式和英文标点模式，并对输入法做相关设置。以下是相关代码：　　procedure TForm1.closecid; 　　var 　　 mycid:hkl; 　　begin 　　 mycid:=GetKeyBoardLayOut(0); 　　 if ImmIsIME(mycid) then 　　 //判断是否在中文状态,若是则关闭它　　 immsimulateHotkey(handle,IME_CHotKey_IME_NonIME_Toggle); 　　end; 　　procedure TForm1.FormShow(Sender: TObject); 　　var 　　 j:integer; 　　begin 　　 for j:=0 to screen.imes.count-1 do 　　 begin 　　 //获取系统中已安装的中文输入法 　　 ComBoBox1.Items.Add(screen.Imes.strings[j]); 　　 end; 　　end;

获取当前输入法名称，获取所有输入法，切换半角和全角模式，切换中文标点模式和英文标点模式，判断是否在中文状态,若是则关闭它

functionSbctoDbc(s:string):string;varnlength,i:integer;str,ctmp,c1,c2:string;{在windows中，中文和全角字符都占两个字节，并且使用了ascii　chart2(codes128-255)。全角字符的第一个字节总是被置为163，而第二个字节则是相同半角字符码加上128（不包括空格）。...

function ToDBC( input :String):WideString;varc:WideString;i:Integer;beginc := input;for i:=1 to Length(Input) dobeginif (Ord(c) = 12288) thenbeginc := chr(32);continue;end;if (Ord(c) > 65280) and(Ord(

如果你不愿意看解决过程，答案就是：注册热键。以下废话可以略过。不知道大家有没有和我一样的烦恼。我在Delphi中编程的时候，由于需要使用Alt+Shift+Space来查看函数的声明，但是输入法的全角切换却是：Shift+Space，所以很多时候，由于Alt键没有及时摁下，导致输入法切换到了全角，这个时候，输入的代码全都变成了全角字符，很是麻烦。于是就想到了避免这个情况的频繁发生。一开

Delphi

5,388

社区成员

262,730

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章