打开和关闭输入法

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;