DELPHI -TapplicationEvents OnShortCut 이벤트 사용 ALT+C 키 프레스를 감지합니다.
문제
TapplicationEvents OnShortCut 이벤트를 사용하여 Delphi 프로그램에서 응용 프로그램 키보드 단축을 얻습니다.
다음 코드 사용 :
procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey; var Handled: Boolean) ;
begin
if (Msg.CharCode = VK_F9) then
begin
ShowMessage('F9 pressed!') ;
Handled := True;
end;
end;
의문:
'Alt C'가 누락 된시기를 어떻게 감지합니까?
해결책
그렇게 :
procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey;
var Handled: Boolean);
begin
if (Msg.CharCode = Ord('C'))
and (HiWord(Msg.KeyData) and KF_ALTDOWN <> 0)
then begin
ShowMessage('Alt+C pressed!') ;
Handled := TRUE;
end;
end;
시스템이 메뉴 항목 또는 대화 상자 컨트롤을 활성화하기 위해이를 사용하므로 ALT와 일부 키만 사용하는 것은 바로 가기에 나쁜 선택입니다.
다른 팁
또는 간단한 taction을 만들 수 있고, 다른 사람들보다 바로 가기를 먹습니다.
제휴하지 않습니다 StackOverflow