이해하려면 Ctrl + 플러스

Question

내가 확대 및 축소하려고

procedure TformMain.FormKeyUp(Sender: TObject; var Key: Word; 
    Shift: TShiftState); 
begin 
    if (Key = VK_ADD) and (Shift = [ssCtrl]) then 
    begin 
    ShowMessage('Zoom In'); 
    end; 

end; 

키보드 (Ctrl 키를 + + 및 Ctrl 키 + -)와 나는이 같은 내 코드를 작성

: How to detect ctrl-t keypress in Delphi

하지만 작동하지 않는데 어떻게 해결할 수 있습니까?

Answer 1

정확히 어떻게 it does not work을 말하는 것은 아니지만 처음에는 KeyPreview가 양식에 true으로 설정되어 있는지 확인하십시오.

그렇지 않은 경우 자세한 설명으로 문제 설명을 확장하십시오.