1,222
社区成员




HKL myhkl;
void __fastcall TForm1::Edit6Exit(TObject *Sender)
{
myhkl=GetKeyboardLayout(0);//获得当前输入法
if(ImmIsIME(myhkl))
ImmSimulateHotKey(Handle,IME_CHOTKEY_IME_NONIME_TOGGLE);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit6Enter(TObject *Sender)
{
if(ImmIsIME(myhkl))
ActivateKeyboardLayout(myhkl,KLF_ACTIVATE);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Enter(TObject *Sender)
{ //换成你需要的输入法,具体名字在控制面板中找到输入法,看具体名称
Edit1->ImeName = "中文 - 紫光华宇拼音输入法V6";
}