Q&A
- KeyDown이벤트에서 키값 변환..
안녕하세요..
고민도 해보고 질답란도 찾아봤는데 똑 떨어지는 답이 안나와서요..^^
KeyDown 이벤트에서 키가 눌려졌을 경우 Key값을 TEdit.Text에 넣어 주고 싶은데
일반적인 문자의 경우에는..
Edit.Text := Chr(Key);
로 하면 문자열이 입력되는데..
F1 ~ F12 키라든지 Ins, Del 키등은 위와 같은 소스에는 다른 문자로 시현되더라구요..
단순히..
if Key = 112 then Edit.Text := 'F1'
else if Key = 113 then Edit.Text := 'F2'
............
else if Key = 45 then Edit.Text := 'Ins';
와 같이 단순 비교하지 않고 일률적으로 변환하여 키값을 에디트에 넘겨줄 수 있는 방법은 없는지요?
아니면 깔끔한 예제 소스라도 부탁드립니다..
감사합니다..
고민도 해보고 질답란도 찾아봤는데 똑 떨어지는 답이 안나와서요..^^
KeyDown 이벤트에서 키가 눌려졌을 경우 Key값을 TEdit.Text에 넣어 주고 싶은데
일반적인 문자의 경우에는..
Edit.Text := Chr(Key);
로 하면 문자열이 입력되는데..
F1 ~ F12 키라든지 Ins, Del 키등은 위와 같은 소스에는 다른 문자로 시현되더라구요..
단순히..
if Key = 112 then Edit.Text := 'F1'
else if Key = 113 then Edit.Text := 'F2'
............
else if Key = 45 then Edit.Text := 'Ins';
와 같이 단순 비교하지 않고 일률적으로 변환하여 키값을 에디트에 넘겨줄 수 있는 방법은 없는지요?
아니면 깔끔한 예제 소스라도 부탁드립니다..
감사합니다..
(NOTICE) You must be logged in to comment on this post.
-
- 천고일월명
- 2005.05.30 21:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 오명숙
- •
- 2005.05.30 20:13
- 2 COMMENTS
- /
- 0 LIKES
안녕하세요.. 고민도 해보고 질답란도 찾아봤는데 똑 떨어지는 답이 안나와서요..^^ KeyDown 이벤트에서 키가 눌려졌을 경우 Key값을 TEdit.Text에 넣어 주고 싶은데 일반적인 문자의 경우에는.. Edit.Text := Chr(Key); 로 하면 문자열이...-
최용일•2005.05.30 20:57안녕하세요. 최용일입다. 아래와 같이 해보세요... <!--CodeS--> uses ...
-
오명숙•2005.05.30 21:48
-
- 허성수
- •
- 2005.05.30 19:09
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2005.05.30 20:42안녕하세요. 최용일입니다. 아마도 소스 검색해보시면 아래와 같은 부분이 있을겁니다. 코딩은 약간 다...
-
- 최석종
- •
- 2005.05.29 09:56
- 1 COMMENTS
- /
- 0 LIKES
-
KDDG_RNStone•2005.05.30 17:58어떤 부분이 어렵다고 말씀하시는지... ^^;; 걍 EditBox에 있는 Text 값 (숫자겠지만)을 정수나 실수로 ...
-
- 권오현
- •
- 2005.05.29 07:53
- 2 COMMENTS
- /
- 0 LIKES
-
도끼로이마까•2005.05.31 01:42혹시 testdll.dll에서 winio.dll 파일을 사용하는건 아닌가여? 다른 libray를 dll로 wrapping해서 사용...
-
권오현•2005.05.31 07:10도끼로이마까님, 감사합니다. dll을 처음 사용해 보는거라서 잘 몰랐네요 많은 도움 되었습니다.^^
-
- 함종인
- •
- 2005.05.28 22:10
- 3 COMMENTS
- /
- 0 LIKES
-
해오름•2005.05.28 22:38Project Option에서 Build with runtime packages의 체크를 하고 컴파일하셨다면 vclie50.dp...
-
함종인•2005.05.30 07:48말씀하신대로 해결했습니다. 감사합니다.. ==============================
-
Crazy™•2005.05.31 20:50Build with runtime packages 프로그램을 개발하고 위의 옵션에 체크를 하고 컴파일 했다면 실행파일은 ...
-
- 홍충식
- •
- 2005.05.28 21:10
- 1 COMMENTS
- /
- 0 LIKES
-
홍충식•2005.06.01 06:21자답 결국, 궁리 끝에 webBrowser 콤포넌트로 해결 봤습니다. 역시 플래시는 브라우져에서 사용하는게 ...
-
-
nilriri™•2005.05.28 20:53dcu파일이 있다면 프로젝트에서 라이브러리를 검색하는 path위치에 해당 dcu파일이 있으면 되구요..(소...
-
-
- 함종인
- •
- 2005.05.28 11:37
- 2 COMMENTS
- /
- 0 LIKES
-
피터팬•2005.05.28 20:22간단한 데이타베이스 프로그램이라면 TTable, TQuery 등을 이용해 만드신건가요? 그렇다면 BDE엔진이 설치...
-
함종인•2005.05.28 20:31자세하게 에러환경을 설명을 드렸어야 하는데 제가 좀 부족했나봐요.. 사용자컴에 BDE엔진 당연히 설치...
-
- 민스맘
- •
- 2005.05.28 01:00
- 1 COMMENTS
- /
- 0 LIKES
-
민스맘•2005.05.28 01:29애구 여기저기 뒤지다 우연히 했어요.... <!--CodeS--> unit d_i; interface us...
-
- 김종균
- •
- 2005.05.28 00:36
- 1 COMMENTS
- /
- 0 LIKES
-
Crazy™•2005.05.31 20:54adoconnection.connected := False 이렇게 해보세요
-
-
nilriri™•2005.05.28 00:19원래 분리되어있거나 다른 유닛에 있던 코드를 한개의 유닛에 모두 정의되어있다면.. uses 절에 지정된 ...
-
-
- GiS
- •
- 2005.05.27 23:20
- 1 COMMENTS
- /
- 0 LIKES
-
nilriri™•2005.05.28 00:26전체소스를 출력해서 분석작업을 하시는게 아니라면.. 굳이 알파벳순으로 정렬될 필요까지 있을까요? ...
-
-
nilriri™•2005.05.27 22:13dcu들이 모여있는 디렉토리를 컴파일시 델파이에서 참조할 수 있도록 라이브러리에 추가해 주시면 될거 같...
-
-
- 권동훈
- 2005.05.27 20:16
- •
- 0 COMMENTS
- /
- 0 LIKES
-
- 김종균
- •
- 2005.05.27 19:03
- 2 COMMENTS
- /
- 0 LIKES
-
김유빈•2005.05.28 01:27정석은 아니구여.. 그냥.. 꽁수라 보시면 될것 같습니다. imageList 하나 추가하시여.. ListView sma...
-
도끼로이마까•2005.05.27 20:05OwnerDraw를 사용하시니까 옵션에서 그리드 끄시고 그리드라인도 직접 그려주셔야 할듯 하오이다...
-
- 이용삼
- 2005.05.27 18:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 최정민
- 2005.05.27 05:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 박진규
- •
- 2005.05.27 02:50
- 1 COMMENTS
- /
- 0 LIKES
-
박진규•2005.05.27 04:26패치문제더군요.. 자료실에서패치 를까니까 잘되네요.. 감사...
-
- 곽영배
- •
- 2005.05.26 21:56
- 4 COMMENTS
- /
- 0 LIKES
-
주웰•2005.05.27 00:38폼에는 FormStyle 속성이 있습니다. 이속성을 fsStayOnTop 두고 해보세요
-
곽영배•2005.05.27 01:48감사합니다........... 그런데 폼을 다른 응용프로그램의 '맨앞에' 위치 하고자 하는 것이 아니고 '...
-
이중철•2005.05.27 02:25API 함수를 써보세요 함수명은 SetWindowPos 입니다. 헬프에서 찾아보시고 여기에도 있을꺼에요
-
곽영배•2005.05.27 04:38
아래와 같이 해보세요...
<!--CodeS-->
uses
......, Menus;
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
Edit2.Text := ShortCutToText( ShortCut(Key, Shift) );
end;
<!--CodeE-->
뭐.. 위와같이 해도.. 내부적으로는 님처럼 합니다...
^^ 항상 즐코하세요...