Delphi의 OnKeyDown 관련 문제

Question

저는 Delphi에서 작업하고 있습니다. 어떤 키를 눌렀는지 추적하고 싶습니다. TForm의 KeyDown 이벤트를 사용하고 있습니다. 그것은 잘 작동하지만 문제는, 내가 그 편지의 대문자를 제공하지만, 내가 소문자를 누르거나 소문자를 쓰면. 눌린 키가 소문자인지 대문자인지 어떻게 알 수 있습니까?

Answer 1

영문자 키를 추적하려면 KeyPress을 사용해야합니다. 이 시도 : 키보드에서 중 "K"또는 "K"를 입력하려면

가

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); 
begin 
    ShowMessage(Key); 
end; 

KeyDown의 문제는, 확실히 충분히 그 우울되는 핵심에 응답이다, 그리고, 당신은 같은 버튼을 누르면 , 권리? 따라서 KeyDown을 계속 사용하려면 Caps Lock 키가 켜져 있거나 Shift 키를 누른 경우 별도로 확인해야합니다. 토글 키 (예 : 모자 등이 잠금) 경우 테스트하기에, 또는 일반 키가 눌러 진 경우 캡이 IsKeyOn(VK_CAPITAL)를 사용하는 키가 잠금, 당신은 확인하려면

function IsKeyDown(const VK: integer): boolean; 
begin 
    IsKeyDown := GetKeyState(VK) and $8000 <> 0; 
end; 

function IsKeyOn(const VK: Integer): boolean; 
begin 
    IsKeyOn := GetKeyState(VK) and 1 = 1; 
end; 

를 사용할 수 있습니다. Shift 키가 눌러져 있는지 확인하려면 IsKeyDown(VK_SHIFT)을 사용하십시오.

시프트 키 만 OnKeyDown 이벤트 핸들러에서 작동하는 경우에 눌려 검사하는 다른 방법은, Shift 그 이벤트 핸들러 함수의 파라미터 ssShift in Shift,인지 확인하는 것이다.

(단, Caps Lock이 켜져있을 때 Shift + A를 누르면 작은 "a"가 삽입됩니다.) 수도를 테스트하는 것은 XOR 연산자를 사용

IsKeyOn(VK_CAPITAL) xor IsKeyDown(VK_SHIFT) 

때 검사를 사용합니다.)