Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[15989] Hwpctrl에서 한글입력 문제입니다
안개소리 [] 1383 읽음    2018-12-09 11:09
안녕하세요!
 
Hwpctrl에서 한글이 입력되지 않는 문제를 알고 싶어 질문 드립니다.
자유게시판을 찾아보니 WndProc 하여 문제를 해결할 수 있다고 하는데...
코딩을 해 보니 영문은 입력이 되는데.. 한글이 입력이 되지 않습니다.
이 문제의 해결 방법을 알고 싶습니다.. 부탁드립니다.. ^^

코딩은 아래요 같이 작성하여 테스트를 했습니다.
(한글 2007과 델파이 10.2 번젼으로 했습니다)

var
  Action, Param : Variant;
begin
  Action := HwpCtrl1.CreateAction('InsertText');
  Param  := Action.CreateSet;

  HNCWndProc(message);

  case message.Msg of
    WM_CHAR : begin
                Param.SetItem('Text', Char(message.WParam));
                Action.Execute(Param);
              end;
    WM_IME_COMPOSITION :
              begin
                if message.LParam <> 2048 then
                begin
                  Param.SetItem('Text', Char(message.WParam));
                  Action.Execute(Param);
                end
                else
                begin
                  Param.SetItem('Text', Char(Hi(message.WParam)) + Char(Lo(message.WParam))) ;
                  Action.Execute(Param);
                end;
              end;
  end;

end;


+ -

관련 글 리스트
15989 Hwpctrl에서 한글입력 문제입니다 안개소리 1383 2018/12/09
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.