폼의 KeyDown 이벤트에 아래 코드 추가



procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin



//==========================================================

//추가할 코드

//==========================================================

//Esc Key Down

if Key = 27 then

begin

Key := 0; //Key init (Null)

Shift := [ssAlt]; //Alt Down

ShowMessage('Esc Key Down');

end;

//==========================================================



end;



비고: 해당 폼의 KeyPreview 프로퍼티를 True 로 세팅





김범석 wrote:

> esc key를 눌렀을때 alt key 가 눌린것처럼 동작할려면 어떻게 해야되나요

>

> 예를들어 esc key를 눌렀을때 application 프로그램의 메뉴가 선택되어지게....

>

> 더 원한다면 첫번째 메뉴가 펼쳐지게 까지요

>

> 내가 너무 많은걸 원하나 쩝..

>

> 알려주쇼용.. *^.^

>