안녕하세요.

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;