Q&A
- 엔터키를 tab키처럼...
form1에 groupbox를 놓고 그위에 edit를 여러개 놓고
엔터키를 치면 tab키를 친것과 같은 효과를 내려고
아래와 같이 했는데 edit가 groupbox위에 있게 될때는
안되더라구요 원래 그런것인지? 아니면 제가 잘못한 것인지
모르겠군요 알켜주세요...
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
Perform(WM_NEXTDLGCTL, 0, 0);
end;
end;
엔터키를 치면 tab키를 친것과 같은 효과를 내려고
아래와 같이 했는데 edit가 groupbox위에 있게 될때는
안되더라구요 원래 그런것인지? 아니면 제가 잘못한 것인지
모르겠군요 알켜주세요...
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
Perform(WM_NEXTDLGCTL, 0, 0);
end;
end;
2
COMMENTS
-
-
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key =vk_return then begin
selectnext(ActiveControl as TWincontrol, true,true);
end;
end;
이렇게 하시고나서 폼속성의 keypreview 속성을 thre 로 해주면 됩니다.
(NOTICE) You must be logged in to comment on this post.
-
- 조용덕
- 1999.11.20 18:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 김영택
- 1999.11.20 18:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 조창범
- •
- 1999.11.20 17:42
- 1 COMMENTS
- /
- 0 LIKES
-
조복기•1999.11.20 20:34안녕하세요~ 금액을 따로 프린트시에 구할려고 한다면 두가지 방법이 있습니다.. sql문을 사용하신...
-
- advisor
- •
- 1999.11.20 17:24
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.11.21 22:14쩝.. 이곳 Q&A게시판에는 어울리지 않는 글이네요.. 이미 자유게시판에는 있는 글이구요.. 인프라이즈...
-
- 신재환
- •
- 1999.11.20 08:04
- 1 COMMENTS
- /
- 0 LIKES
-
왕초•1999.11.27 02:38신재환 wrote: > > TChart에서 > > BarChart를 사용하는데, > > 나타나는 Bar의 모양을 Rectan...
-
- peter30
- 1999.11.20 05:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 데이타
- •
- 1999.11.20 04:28
- 3 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.11.20 12:43답변자의 급한 질문!!! 성적관리 테이블의 이름은 무엇이며, A학생의 영어과목 성적의 필드는 무엇...
-
데이타•1999.11.20 22:38이정욱 wrote: > 답변자의 급한 질문!!! > > 성적관리 테이블의 이름은 무엇이며, > A학생의 영어...
-
배불뚝•1999.11.30 19:42데이타 wrote: > 이정욱 wrote: > > 답변자의 급한 질문!!! > > > > 성적관리 테이블의 이름은 무엇...
-
- 홍효선
- 1999.11.22 19:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 김종운
- •
- 1999.11.20 03:45
- 2 COMMENTS
- /
- 0 LIKES
form1에 groupbox를 놓고 그위에 edit를 여러개 놓고 엔터키를 치면 tab키를 친것과 같은 효과를 내려고 아래와 같이 했는데 edit가 groupbox위에 있게 될때는 안되더라구요 원래 그런것인지? 아니면 제가 잘못한 것인지 모르겠군요 알켜...-
배불뚝•1999.11.30 19:42김종운 wrote: > form1에 groupbox를 놓고 그위에 edit를 여러개 놓고 > 엔터키를 치면 tab키를 친것과 ...
-
수징이•1999.11.20 03:57procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if key =vk_return then be...
-
- 조영실
- 1999.11.20 03:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 최명실
- 1999.11.20 03:34
- 0 COMMENTS
- /
- 0 LIKES
-
- 김현일
- •
- 1999.11.20 03:01
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.11.20 06:06김현일 wrote: > 안녕하세요. > 다른프로그램의 윈도우에 Editbox에서 문자열을 가져오고 보내고 할려고 ...
-
- 안장식
- •
- 1999.11.20 02:45
- 2 COMMENTS
- /
- 0 LIKES
-
김영대•1999.11.20 06:10안장식 wrote: > 안녕하세요? > 쿼리문으로 데이타를 검색하려합니다. > Query1.RecordCount 구문을 쓰...
-
이재식•1999.11.20 02:47안장식 wrote: > 안녕하세요? > 쿼리문으로 데이타를 검색하려합니다. > Query1.RecordCount 구문을 쓰...
-
- 홍길동
- •
- 1999.11.20 02:15
- 3 COMMENTS
- /
- 0 LIKES
-
이재식•1999.11.20 02:40홍길동 wrote: > QReport 로 레포트를 아래와 같이 만들려고 하는데 방법이 있을까요... > ( Master/Det...
-
홍길동•1999.11.20 18:34이재식님 답변에 우선 감사드리고 제가 질문이 미흡하여 질문전달이 잘못되었는것 같아 다시 드립니다. ...
-
안재현•1999.11.21 00:21홍길동 wrote: > 이재식님 답변에 우선 감사드리고 > 제가 질문이 미흡하여 질문전달이 잘못되었는것 같...
-
- 궁금이
- •
- 1999.11.20 01:46
- 1 COMMENTS
- /
- 0 LIKES
-
안재현•1999.11.20 02:39궁금이 wrote: > 특정 form에서 ESC key를 누르면 특정 이벤트가 발생하게 하려고 하는데요 > > 그래서...
-
- 김남훈
- •
- 1999.11.20 01:38
- 1 COMMENTS
- /
- 0 LIKES
-
이재식•1999.11.20 02:13김남훈 wrote: > date형 필드값을 maskedit에서 읽어들여(yyyy-mm-dd) 저장을 하려 하는데 > type miss e...
-
- sun
- 1999.11.20 01:12
- 0 COMMENTS
- /
- 0 LIKES
-
- Avenger
- •
- 1999.11.20 01:12
- 1 COMMENTS
- /
- 0 LIKES
-
이재식•1999.11.20 02:24Avenger wrote: > > StringGrid에서 Right Key와 Left key를 아예 않먹게 하려면 어떻게 합니까? > >...
-
- 장일형
- •
- 1999.11.20 00:39
- 3 COMMENTS
- /
- 0 LIKES
-
안재현•1999.11.20 02:51장일형 wrote: > procedure TForm1.Button1Click(Sender: TObject); > var > ptr : PChar; > ipt...
-
장일형•1999.11.20 03:18> PChar는 C에서 Null String 문자열이라고 생각하시면 됩니다. > PChar로 선언된 변수의 길이는 제일 첫...
-
안재현•1999.11.20 04:41장일형 wrote: > > PChar는 C에서 Null String 문자열이라고 생각하시면 됩니다. > > PChar로 선언된 변...
-
- dollie
- 1999.11.20 00:28
- 0 COMMENTS
- /
- 0 LIKES
> form1에 groupbox를 놓고 그위에 edit를 여러개 놓고
> 엔터키를 치면 tab키를 친것과 같은 효과를 내려고
> 아래와 같이 했는데 edit가 groupbox위에 있게 될때는
> 안되더라구요 원래 그런것인지? 아니면 제가 잘못한 것인지
> 모르겠군요 알켜주세요...
>
> procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
> begin
> if Key = #13 then
> begin
> Key := #0;
> Perform(WM_NEXTDLGCTL, 0, 0);
> end;
> end;
같은 코딩을 group box위에 있는 Edit들의 KeyPress event에 넣어 보세요.
keypress event가 form에서 처리되지 않고 groupbox에서 처리됩니다.