안녕하세요.
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;
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;
>