Q&A

  • MDI 상태바..에서요..
질문이 있습니다.



MDI상태바에서요.. 키보드의 NumLock이랑 CapsLock키가

눌렸다는 것을 표시해주고 싶거든요? 물론 해제해도

표시를 해야 하고요..



어떻게 하지요?



1  COMMENTS
  • Profile
    이해경 2000.10.07 18:51
    이건 제가 사용한 방법 입니다. 물론 좋은 코드는 아니죠.

    Timer를 이용한 방법인데요. 제가 생각해도 별로 좋은 코드는 아닙니다.

    API 함수나 기타 다른 방법이 있는 분은 Re를 달아주시면 좋겠네요.





    procedure Tfrm_Main.Timer1Timer(Sender: TObject);

    begin

    if Odd (GetKeyState (VK_CAPITAL)) then

    Status.Panels[0].Text := 'CAPS'

    else

    Status.Panels[0].Text := '';

    if Odd (GetKeyState (VK_INSERT)) then

    Status.Panels[1].Text := 'INSERT'

    else

    Status.Panels[1].Text := 'DELETE';

    if Odd (GetKeyState (VK_NUMLOCK)) then

    Status.Panels[2].Text := 'NUM'

    else

    Status.Panels[2].Text := '';

    end;