Q&A

  • 한/영 표시 키값?
안녕하세요.

CAPSLOCK 값은 VK_CAPITAL 인데

한영키를 누를때 상태바에 한/영키값을 표시하려 하는데 잘 안되는군요.

좋은방법이 있으면 가르쳐 주세요.

고수님들 가르쳐주시면 감사하겠습니다.



procedure TForm1.Timer1Timer(Sender: TObject);

begin

if (GetKeyState(VK_Capital) and $01 ) <> 0 then begin

statusbar1.Panels[1].Text := 'CapsLock';

end else begin

statusbar1.Panels[1].Text := '';

end;

if (GetKeyState(VK_HANGUL) and $01 ) <> 0 then begin // 질문 : 한/영 전환키값

statusbar1.Panels[2].Text := '한국어';

end else begin

statusbar1.Panels[2].Text := '영어';

end;

statusbar1.Panels[3].Text := FormatDateTime( 'YYYY.MM.DD. Am/Pm hh:mm ', Now);

end;



3  COMMENTS
  • Profile
    서록 2001.06.20 22:23
    39775번 바보감자님이 답변하신 글을 보시면 됩니다.

    imm유닛 추가부터 함수맹글어 쓰는 예제가 나와있군요.



    즐코...



    초급질문자 wrote:

    > 안녕하세요.

    > CAPSLOCK 값은 VK_CAPITAL 인데

    > 한영키를 누를때 상태바에 한/영키값을 표시하려 하는데 잘 안되는군요.

    > 좋은방법이 있으면 가르쳐 주세요.

    > 고수님들 가르쳐주시면 감사하겠습니다.

    >

    > procedure TForm1.Timer1Timer(Sender: TObject);

    > begin

    > if (GetKeyState(VK_Capital) and $01 ) <> 0 then begin

    > statusbar1.Panels[1].Text := 'CapsLock';

    > end else begin

    > statusbar1.Panels[1].Text := '';

    > end;

    > if (GetKeyState(VK_HANGUL) and $01 ) <> 0 then begin // 질문 : 한/영 전환키값

    > statusbar1.Panels[2].Text := '한국어';

    > end else begin

    > statusbar1.Panels[2].Text := '영어';

    > end;

    > statusbar1.Panels[3].Text := FormatDateTime( 'YYYY.MM.DD. Am/Pm hh:mm ', Now);

    > end;

    >

  • Profile
    김덕수 2001.06.21 19:21
    땡큐땡큐 감사해요. 써보니 잘 됩니다. 오늘하루 즐겁게 보내세요.



    서록 wrote:

    > 39775번 바보감자님이 답변하신 글을 보시면 됩니다.

    > imm유닛 추가부터 함수맹글어 쓰는 예제가 나와있군요.

    >

    > 즐코...

    >



  • Profile
    하기 2001.06.20 21:01
    님.. 한영키에 대해 검색해 보면 잘 나와있을것 같군요...

    응용도 해보시고요... ^^;



    초급질문자 wrote:

    > 안녕하세요.

    > CAPSLOCK 값은 VK_CAPITAL 인데

    > 한영키를 누를때 상태바에 한/영키값을 표시하려 하는데 잘 안되는군요.

    > 좋은방법이 있으면 가르쳐 주세요.

    > 고수님들 가르쳐주시면 감사하겠습니다.

    >

    > procedure TForm1.Timer1Timer(Sender: TObject);

    > begin

    > if (GetKeyState(VK_Capital) and $01 ) <> 0 then begin

    > statusbar1.Panels[1].Text := 'CapsLock';

    > end else begin

    > statusbar1.Panels[1].Text := '';

    > end;

    > if (GetKeyState(VK_HANGUL) and $01 ) <> 0 then begin // 질문 : 한/영 전환키값

    > statusbar1.Panels[2].Text := '한국어';

    > end else begin

    > statusbar1.Panels[2].Text := '영어';

    > end;

    > statusbar1.Panels[3].Text := FormatDateTime( 'YYYY.MM.DD. Am/Pm hh:mm ', Now);

    > end;

    >