현재 폼의 IMM 상태가 한글이면 True, 영문이면 False 를 반환하는 함수.
 
 
 
 
// uses 에 Imm 추가
 
function TForm1.한글: Boolean;
var
  IMC: HIMC;
begin
  IMC:=ImmGetContext(Self.Handle);
  if ImmGetOpenStatus(IMC) then Result:=True
  else                          Result:=False;
  ImmReleaseContext(Self.Handle, IMC);
end;
 
 
 
 
현재 폼의 IMM 상태를 영문으로 변경.
 
 
 
 
// uses 에 Imm 추가
 
procedure TForm1.영문으로_변경;
var
  IMC: HIMC;
begin
  IMC:=ImmGetContext(Self.Handle);
  ImmSetConversionStatus(IMC, 0, 0);
  ImmReleaseContext(Self.Handle, IMC);
end;





Posted by bloodguy
,