Q&A
- Enter키를 이용하여 포커스이동
여러개의 TEdit, TMaskEdit, TComboBox 컴포넌트에 OnKeyPress 이벤트를 설정
하여 'Enter'키를 누르면 다음 컴포넌트로 Focus 가 이동을 하게 작성을
하였습니다. 그런다음 각 컴포넌트마다 '데이터 값'이 입력이 되지 않으면
'Enter'키를 눌러도 다음 컴포넌트로 Focus 가 이동을 못하게 할려고 하였는데
잘 안되어서 자문을 구하고자 올렸습니다.
밑에 있는 내용은 제가 작성을 하다가 막힌 부분입니다. 참고하십시요.
procedure TfrmTaxation.edtTcodeKeyPress(Sender: TObject; var Key: Char);
begin
IF (Sender As TEdit).Text = '' then
exit
else
If Key = #13 then
begin
SelectNext(Sender As TwinControl,True,True);
Key := #0;
end;
end;
하여 'Enter'키를 누르면 다음 컴포넌트로 Focus 가 이동을 하게 작성을
하였습니다. 그런다음 각 컴포넌트마다 '데이터 값'이 입력이 되지 않으면
'Enter'키를 눌러도 다음 컴포넌트로 Focus 가 이동을 못하게 할려고 하였는데
잘 안되어서 자문을 구하고자 올렸습니다.
밑에 있는 내용은 제가 작성을 하다가 막힌 부분입니다. 참고하십시요.
procedure TfrmTaxation.edtTcodeKeyPress(Sender: TObject; var Key: Char);
begin
IF (Sender As TEdit).Text = '' then
exit
else
If Key = #13 then
begin
SelectNext(Sender As TwinControl,True,True);
Key := #0;
end;
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- ---
- 1999.08.24 02:50
- 0 COMMENTS
- /
- 0 LIKES
-
- 정경철
- •
- 1999.08.24 02:45
- 1 COMMENTS
- /
- 0 LIKES
-
왕초•1999.08.24 04:27정경철 께서 말씀하시기를... > 페이지 설정은 델파이에 보면 Sys라는 컴포넌트가 있습니다. > 디폴트값...
-
- 황돈기
- 1999.08.24 02:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 안종선
- 1999.08.24 02:30
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초
- 1999.08.24 01:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 박혁
- 1999.08.24 01:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 신상철
- •
- 1999.08.24 00:30
- 1 COMMENTS
- /
- 0 LIKES
-
---•1999.08.24 02:34Jil Moon Ha-sin Nae Yong Eun Mo Reum Ni Da.... Ha Ji Man shdocvw.dll file Ha n...
-
- 이봉호
- •
- 1999.08.24 00:16
- 1 COMMENTS
- /
- 0 LIKES
-
이봉호•1999.08.31 16:43아무도 대답이 없으시군요 제가 일주일가량 찾아 헤맨 결과(너무 오래 걸렸나?) 마이크로 소프트 홈...
-
- 김지혜
- 1999.08.23 23:42
- 0 COMMENTS
- /
- 0 LIKES
-
- termy
- 1999.08.23 23:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 황현동
- •
- 1999.08.23 23:19
- 1 COMMENTS
- /
- 0 LIKES
-
신인재•1999.08.24 00:30아래의 API를 함 써보세요.......... BOOL SetCaretBlinkTime( UINT uMSeconds // blink time, in...
-
- demian
- 1999.08.23 23:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 김정배
- 1999.08.23 23:09
- 0 COMMENTS
- /
- 0 LIKES
-
- konghoon
- •
- 1999.08.23 22:49
- 1 COMMENTS
- /
- 0 LIKES
-
mjhan•2000.03.16 19:22konghoon wrote: > smtp 사용시에 에러가 나는데요 > 메시지는 다음과 같습니다 > > No Recipients: n...
-
- 김용
- •
- 1999.08.23 22:20
- 3 COMMENTS
- /
- 0 LIKES
-
박종성•1999.08.25 18:50김용 께서 말씀하시기를... > sql.add('select....')로 쿼리를 동적으로 생성하여 수행할려고 하는데 문장...
-
김영해•1999.08.24 05:46김용 께서 말씀하시기를... > sql.add('select....')로 쿼리를 동적으로 생성하여 수행할려고 하는데 문장...
-
왕초•1999.08.24 02:33김용 께서 말씀하시기를... > sql.add('select....')로 쿼리를 동적으로 생성하여 수행할려고 하는데 문장...
-
- 이태훈
- 1999.08.23 22:05
- 0 COMMENTS
- /
- 0 LIKES
-
- termy
- •
- 1999.08.23 21:37
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.08.23 22:44쩝.. 그냥 값을 계산하는 방식입니다. 아래는 array[0..921604] of Byte 와 같은 말이죠. 이상한것이 아...
-
- 황돈기
- 1999.08.23 21:30
- 0 COMMENTS
- /
- 0 LIKES
-
- 김지건
- 1999.08.23 20:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 최영란
- •
- 1999.08.23 20:28
- 1 COMMENTS
- /
- 0 LIKES
-
왕초•1999.08.23 23:21최영란 께서 말씀하시기를... > with Mainf.Query1 do > begin > close; > SQL.Clear; > SQL....
> 여러개의 TEdit, TMaskEdit, TComboBox 컴포넌트에 OnKeyPress 이벤트를 설정
>
> 하여 'Enter'키를 누르면 다음 컴포넌트로 Focus 가 이동을 하게 작성을
>
> 하였습니다. 그런다음 각 컴포넌트마다 '데이터 값'이 입력이 되지 않으면
>
> 'Enter'키를 눌러도 다음 컴포넌트로 Focus 가 이동을 못하게 할려고 하였는데
>
> 잘 안되어서 자문을 구하고자 올렸습니다.
>
>
>
> 밑에 있는 내용은 제가 작성을 하다가 막힌 부분입니다. 참고하십시요.
>
>
> procedure TfrmTaxation.edtTcodeKeyPress(Sender: TObject; var Key: Char);
> begin
> IF (Sender As TEdit).Text = '' then
> exit
> else
> If Key = #13 then
> begin
> SelectNext(Sender As TwinControl,True,True);
> Key := #0;
> end;
> end;
>
안냐세요... ^^
별문제는 없는것 같은데...
IF (Sender As TEdit).Text = '' then
이부분이 문제인것 같습니다..
왜냐면 TEdit, TMaskEdit, TComboBox 는 모두 클래스타입이 틀리기 때문에
문제가 발생한것 같습니다.
(Sender as TComponent).Components[i].ClassType
이런 문장을 사용하여 클래스 타입부터 지정하셔야 될것 같습니다..
저두 많이는 안써봤거든요.. 그래서 이정도 밖에는 도움이 않되겠네요..
그럼 즐거운 고딩하세요... ^_^