Q&A

  • alt + p를 발생시키려면?
keydown 이벤트에서,

  alt와 p 를 눌렀을 경우 이벤트를 발생시키려면 어떻게 코딩하면 되나요~?

  조합하려니 참 어렵군요~~ 답변 부탁드립니다.
이 게시물을
3  COMMENTS
  • Profile
    윤도상 • 2002.07.30 02:51
    .
  • Profile
    한원희 • 2002.07.30 02:48


    procedure TForm1.edtSourceKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
      if (Key=Ord('P')) and (ssAlt in Shift) then
      begin
        // alt - P 를 눌렀으 때의 동작...
        ShowMessage('P');
      end;
    end;

    요렇게 해주면 됩니다.
    참고로, Shift, Alt, Ctrl 등의 키가 눌렸는지 검사하는 GetKeyState API를 사용하실 수도 있습니다.

    procedure TForm1.edtSourceKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
      if (Key=Ord('P')) and (GetKeyState(VK_ALT)<0) then
      begin
        // alt - P 를 눌렀으 때의 동작...
        ShowMessage('P');
      end;
    end;

    이렇게 하셔도 똑같은 효과를 볼 수 있습니다.
  • Profile
    ^ㅡ^ • 2002.07.30 02:36


      if (Key = Vk_Return) and (ssalt in Shift)   then
      begin

      end;

    P : p값을 몰라서 엔터로 대신했습니다
    즐포하시길
←First Page
936 937 938 939 940 941 942 943 944 945
Last Page→
한델 로그인 하기