Q&A

  • 폼에서 alt+x를 누르면 종료하게 하려면?
말그대로 입니다..

keydown에서 어떻게 합니까?



1  COMMENTS
  • Profile
    이성찬 2000.10.27 18:58
    (Sender: TObject; var Key: Word; Shift: TShiftState)



    Shift 와 Key 로 처리 하실수도 있지만

    작업하시는 프로젝트가 MDI 라면 어디서나 종료되야 겠지요

    프로그램 전체를 종료한다면

    MainForm 의 MainMenu 의 ShortCut 속성을 Alt+X 로 주세요.



    정 Shift 와 Key 처리 하신다면



    if Shift = [ssAlt] then

    begin

    if Key = VK_REUTRN then

    begin

    end

    else if (Key = Ord('X')) or (Key = Ord('x')) then

    begin

    end;

    end;



    won wrote:

    > 말그대로 입니다..

    > keydown에서 어떻게 합니까?

    >