해당 메뉴 항목이없는 Delphi App 바로 가기 만들기

StackOverflow https://stackoverflow.com/questions/3330932

문제

함수를 호출하기 위해 내 앱에서 Ctrl + Alt + D와 같은 바로 가기 키 조합을 갖고 싶지만 모든 메뉴에 바로 가기가 나타나지 않아야합니다.그렇지 않으면 보이지 않는 앱에서 사용할 수있는 바로 가기가 있습니까?

도움이 되었습니까?

해결책

OnShortCut < a> 이벤트를 사용할 수 있습니다."http://docwiki.embarcadero.com/vcl/en/appevnts.tapplicationevents"rel="noreferrer"> TApplicationEvents 구성 요소이 작업

이 코드를 확인 

procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey;
  var Handled: Boolean);
begin
  if (Msg.CharCode = Ord('D')) and (HiWord(Msg.KeyData) and KF_ALTDOWN <> 0) and  (GetKeyState(VK_CONTROL) < 0) then
  begin
    ShowMessage('Ctrl+Alt+D Pressed') ;
    Handled := true;
  end;
end;
.

다른 팁

예 가능합니다.클래스 taction의 객체를 양식에 추가해야합니다. Taction에 대한 키보드 바로 가기를 지정한 다음 해제의 onexecute에 코드를 넣을 수 있습니다.

양식에 직접 taction을 추가 할 수 없으므로 양식에 tactionList를 넣어야하고 tactionlist에 taction을 추가 할 수 있습니다.

라이센스 : CC-BY-SA ~와 함께 속성
제휴하지 않습니다 StackOverflow
scroll top