Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[3302] [해결] [정보] 더 간단하게...
kkw0731 [ ] 1118 읽음    1998-06-16 18:39
BacTeria 박종민님께 진심으로 감사드립니다.
먼저 세세한 것까지 신경을 쓰시면서 이해하기 쉽게 설명을 해주셔서 감사합니다.

하다보니 더 좋은 아이디어가 있어서 다음분들을 위해서 이렇게 몇자를 적어봅니다.

먼저, Tab Key 를 Enter Key로 대체하는 Event는 저번 질문과 똑같습니다.

Edit1에서부서 Edit10까지의 OnKeyPress Event의 코딩내용;

    If Key = #13 Then
       Begin
           SelectNext(Sender as tWinControl, True, True);
           Key := #0;
       end;

여기에서 방향키중 위(Up Arrow)와 아래(Down Arrow)에서만 Edit1에서 Edit10까지
이동하는 방법으로는

Edit1에서부서 Edit10까지의 OnKeyDown Event의 코딩내용;

    If Key = VK_UP Then   // Up Arrow 일때
       Begin
           SelectNext(Sender as tWinControl, False, True);
       end;

    If Key = VK_Down Then   // Down Arrow 일때
       Begin
           SelectNext(Sender as tWinControl, True, True);
       end;

이렇게 코딩하시면 됩니다.
Up Key 와 Down Key 의 코딩 내용중 틀린 부분은 중간의 False와 True부분뿐 입니다.
여기서 True는 앞쪽으로, False는 뒤쪽으로 라고 Help에 나와 있더라구요.
워낙 영어가 딸려서리....

BacTeria 박종민님께서 가르쳐 주신 내용으로 조금 더 수정해봤더니 더 좋은 결과가
있더라구요...

아무튼 다시한번 감사드리고요, 이렇게 조금이나마 고생하시는 분들을 위해서
연구한 결과를 올려드립니다.

즐~통~ 되세요....



+ -

관련 글 리스트
3302 [해결] [정보] 더 간단하게... kkw0731 1118 1998/06/16
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.