안녕 하세요?

BacTeria 박종민 입니다.

아래와 같이 한/영 전환키를 강제로 영문으로 고정시키는 방법을 생각해 보심이...

그럼 이만...

// 소스--------------------------------------------------------------------------->
// * uses에 "Imm" 추가...
procedure TForm1.MaskEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  hIMC: Integer;
begin
  hIMC := ImmGetContext(Handle);

  if hIMC = 0 then Exit;

  ImmSetConversionStatus(hIMC, IME_CMODE_ALPHANUMERIC, IME_SMODE_NONE);
  ImmReleaseContext(Handle, hIMC);
end;

모라 님이 쓰신 글 :
: 주소관리 프로그램에 TMaskedit을 이용했는데,
:
: 이상하게 한글쪽 키제어는 어떻게 할 수 없네요.
:
: 물론 한글이나 한자가 입력이 되는건 아니지만 버튼을 눌렀을땐
:
: 나오기는 하거든요.
:
: 그래서 아예 api쪽으로 키값을 더 확실하게 제어할 순 없을까 해서요.
:
: 혹시 아시는분 도움을 바랍니다.