유수입니다.
메뉴의 단축키로 직접 @X의 형태로 지정할 수는 없습니다. 단지 약간의
편법(^^;)만 동원하면 원하시는 결과를 얻을 수 있을 겁니다.
예를 들어 종료를 나타는 MenuItem의 Caption에 단지 '종료(&X) @X' 라고 입력
해 주신 다음 메인폼의 KeyPreview 프로퍼티를 True로 설정해 놓습니다.
그 뒤 메인폼의 KeyDown 이벤트에서 다음과 같이 코딩해 주시면 됩니다.
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
// Alt + X 가 눌러진 경우 종료
if (ssAlt in Shift) And (Char(Key) in ['X', 'x']) then Close;
end;
다른 단축키들도 위와 같은 방식으로 만들어 주면 됩니다.
원하시는 답변이 되셨는지 모르겠네요.
흐르는 물 유수~~
|