本文提供了一系列用于 Delphi 应用程序中输入法控制的函数，包括打开和关闭输入法、设置大写锁定状态等功能，适用于文本编辑框和组合框等控件。
procedure CloseEDTIME(edt: TEdit);
var
KeyStates: TKeyboardState;
begin
GetKeyboardState(KeyStates);
if (KeyStates[VK_CAPITAL] = 1) then
begin
SetCapsLockKey(VK_CAPITAL, TRUE); //关大写
end;
Closeime(edt.Handle);
end;
procedure OpenEDTIME(edt: TEdit);
var
KeyStates: TKeyboardState;
begin
GetKeyboardState(KeyStates);
if (KeyStates[VK_CAPITAL] = 1) then
begin
SetCapsLockKey(VK_CAPITAL, TRUE); //关大写
end;
edt.ImeMode := imChinese;
edt.ImeName := ShareGlobalVar.GlobalVar.GetImeName;
edt.ImeMode := imOpen;
end;
procedure GetDicIME(edt: TEdit);
var
KeyStates: TKeyboardState;
begin
GetKeyboardState(KeyStates);
if (KeyStates[VK_CAPITAL] = 0) then
begin
SetCapsLockKey(VK_CAPITAL, TRUE); //开大写
end;
Closeime(edt.Handle); //关输入法
end;
procedure OpenCMBIME(cmb:TComboBox);
var
KeyStates: TKeyboardState;
begin
GetKeyboardState(KeyStates);
if (KeyStates[VK_CAPITAL] = 1) then
begin
SetCapsLockKey(VK_CAPITAL, TRUE); //关大写
end;
cmb.ImeMode := imChinese;
cmb.ImeName := ShareGlobalVar.GlobalVar.GetImeName;
cmb.ImeMode := imOpen;
end;
procedure CloseCapital;
var
KeyStates: TKeyboardState;
begin
GetKeyboardState(KeyStates);
if (KeyStates[VK_CAPITAL] = 1) then
begin
SetCapsLockKey(VK_CAPITAL, TRUE); //关大写
end;
end;
扫一扫
2423
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
