Q&A
- 칸이 다 차면, 항목이동
제가 저번에 질문 함 했었는데요. 어떤분이 일케 답해주셨네요.
==========
질문의 요지를 잘 몰겠쮜만....
EditBox의 MaxLength를 설정해서 MaxLength와 같으면
담으로 넘기면 되지 않을까용......냠냠......
즐콩...^^;;
==========
답변감사함다. 꾸벅..
그런데요.. 이렇게 하면 이런식의 항목이동을 원하는 항목마다 전부 이벤트 설정해줘야 하는데요.. 제가 할려고 했던건 어떻게 함수 하나로 해결할 수 없을까 하는거였죠.
안되나요? -_->
==========
질문의 요지를 잘 몰겠쮜만....
EditBox의 MaxLength를 설정해서 MaxLength와 같으면
담으로 넘기면 되지 않을까용......냠냠......
즐콩...^^;;
==========
답변감사함다. 꾸벅..
그런데요.. 이렇게 하면 이런식의 항목이동을 원하는 항목마다 전부 이벤트 설정해줘야 하는데요.. 제가 할려고 했던건 어떻게 함수 하나로 해결할 수 없을까 하는거였죠.
안되나요? -_->
3
COMMENTS
-
감사~~~~~ (__) -
procedure TForm1.Edit4Change(Sender: TObject);
begin
if (Sender is TEdit) then
if Length(TEdit(Sender).Text) = TEdit(Sender).MaxLength then
다음으로 포커스를 넘기는 소스(알고계시지요..*^^*)==>SelectNext
end;
각 Edit박스에 MaxLength속성을 설정해주면 되겠지요...
이런게 하고, 모든 Edit에 등록Edit4의 Change속성을 선택하면 됩니다.
위의 코딩으로 다 끝나겠지요. 즐코하세요
-
님이 원하시는 거 대충은 이해가 가는데 이벤트로 설정 해주셔야 됩니다.
왜냐면.. 결국 님이 원하시는 건 key 에 관련된 이벤트를 결국 처리하는 거니까여...
일케 하심 어떨까여?
이벤트는 설정하되, 그 이벤트에 관련된 프로시저를 따로 맹글어서 쓰시면여..
예)
edit1.OnKeyPress := RangeFunc;
edit1.tag := MaxL1;
edit2.OnKeyPress := RangeFunc;
edit2.tag := MaxL2;
~~~~
이렇게 하시고
procedure TForm1.RangeFunc(Sender: TObject; var Key: Char);
var
EditLength, EditMax : integer;
begin
EditLength := Length(TEdit(Sender).Text + Key);
EditMax := TEdit(Sender).Tag;
if (EditLength > EditMax) then
SelectNext(Sender As TWinControl, True, True); // 다음 콘트롤로 포커스 옮겨주는건데여.. 아시죠? 탭 오더 따라 다니는 거...
end;
제가 직접 해보지 않고 걍 해본거라... 잘 될지 모르겠네여...
도움 되셨으면 합니다..
열흘나비였슴당..
(NOTICE) You must be logged in to comment on this post.
-
- 최무승
- •
- 2002.01.29 18:43
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.01.29 20:19안녕하세요. 최용일입니다. COM(ActiveX)나 DLL등은 자체적으로 실행될수 없고 호스트 어플리케이션내에...
-
- 델파이탐크루즈
- •
- 2002.01.29 18:12
- 3 COMMENTS
- /
- 0 LIKES
-
델파이탐크루즈•2002.01.29 18:47[질문] 답변해주신 고수님 감사합니다..그런데....????? 프로젝트소스에 첨가했더니 실행화일 아이콘은 ...
-
조복기•2002.01.29 18:36예전 질답란에 보니 조규춘님 답변글이 있길래 퍼왔슴다.. 규춘님 잘 지내실련지... 프로젝트 화일에서...
-
버섯•2002.01.29 18:29application.mainform.hide; 하시믄... 채널바(공식명칭)에 안생깁니더..^^
-
- 윤정식
- 2002.01.29 15:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 이상로
- •
- 2002.01.29 12:35
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•2002.01.29 22:40// QuickReport 를 사용하여 인쇄 프로그램을 작성할 경우 // Printer.PrinterIndex 를 바꾸거나 PrinterS...
-
- 강두헌
- 2002.01.29 11:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 박성웅
- 2002.01.29 10:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 유진
- 2002.01.29 08:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 우정민
- •
- 2002.01.29 08:30
- 1 COMMENTS
- /
- 0 LIKES
-
이낭하•2002.01.29 09:31keypress 이벤트가 있습니다.. 거기서 key 값을 날려 버리면 되죠... 예) procedure TForm1.ComboBox1...
-
- 김용호
- •
- 2002.01.29 05:47
- 1 COMMENTS
- /
- 0 LIKES
-
델파이탐크루즈•2002.01.29 19:03안녕하세요... 에러 Access Vioation Errorr address FFFFF00d0d....은 99% 가 메모리 에러입니다......
-
- 서별
- •
- 2002.01.29 04:25
- 2 COMMENTS
- /
- 0 LIKES
-
anderson•2002.01.29 04:59The optional stored, default, and nodefault directives are called storage specifiers. They have no e...
-
서별•2002.01.31 20:32님의 충고대로 도움말을 참조해서 알게 되었습니다. 감사함다.. ^^;;
-
- 김후진
- •
- 2002.01.29 04:00
- 1 COMMENTS
- /
- 0 LIKES
-
anderson•2002.01.29 04:53'bezier'를 겁나게 찾아보세요.. api에도 있어요
-
- 방영훈
- •
- 2002.01.29 03:52
- 3 COMMENTS
- /
- 0 LIKES
-
anderson•2002.01.29 04:55그냥 var 명령 쓰시죠?
-
방영훈•2002.01.29 17:56var를 쓰면 물론 되겠지요.... But, 저는 var를 쓰면된다는 답변말구 배열을 리턴할 수 있는지가 궁금한건...
-
최용일•2002.01.29 18:06안녕하세요. 최용일입니다. 형정의해서 리턴하세요... type TMyArray = ar...
-
- 서동혁
- •
- 2002.01.29 03:27
- 4 COMMENTS
- /
- 0 LIKES
-
anderson•2002.01.29 04:56FindWindow를 쓰세요
-
라민웁•2002.01.29 03:51if 생성한 그 폼 = nil then begin 그 폼.create; e...
-
서동혁•2002.01.30 21:09제가 해보니까.. 약간 추가해야 할것 같아서 올립니다. 밑에 예제 보시면 알겠지만, 폼이 없어질때 ...
-
이낭하•2002.01.29 03:51님이 말씀하시는게 중복 실행방지인거 같은데... 맞는지 모르겠네요? 일단... 중복 실행 방지는... 프...
-
- 방영훈
- •
- 2002.01.29 03:20
- 1 COMMENTS
- /
- 0 LIKES
-
라민웁•2002.01.29 03:55쩝... 제가 알기로는.. 아니.. 델파이에 적응이 되면. 울트라에딧 못쓸텐데...흐흐.. 신텍스 하이라이트...
-
- 오진욱
- •
- 2002.01.29 03:12
- 3 COMMENTS
- /
- 0 LIKES
제가 저번에 질문 함 했었는데요. 어떤분이 일케 답해주셨네요. ========== 질문의 요지를 잘 몰겠쮜만.... EditBox의 MaxLength를 설정해서 MaxLength와 같으면 담으로 넘기면 되지 않을까용......냠냠...... 즐콩...^^;; ========== 답...-
오진욱•2002.01.29 04:11감사~~~~~ (__)
-
배건환•2002.01.29 03:46procedure TForm1.Edit4Change(Sender: TObject); begin if (Sender is TEdit) then &nbs...
-
이낭하•2002.01.29 03:39님이 원하시는 거 대충은 이해가 가는데 이벤트로 설정 해주셔야 됩니다. 왜냐면.. 결국 님이 원하시는 건...
-
- 정용광
- 2002.01.29 02:37
- 0 COMMENTS
- /
- 0 LIKES
-
-
gudwhrla•2002.01.29 03:14Tools -> Editor Options -> Code Insight ->Delay -> 0.5 Sec 로 설정하시면 l...
-
버섯•2002.01.29 03:07조금기다리시면 원래 나옵니다... 디폴트로.. 안나오면 Ctrl + Space 를 하시면 나옵니다.. 그리...
-
-
-
- 정민주
- •
- 2002.01.29 02:26
- 1 COMMENTS
- /
- 0 LIKES
-
버섯•2002.01.29 03:00아뇨.. 없습니다... 툴같은게 나올법도한데.. 아직 없는거 같은데여... 폼이라도 컨버트 되면.. ...
-
- 와니
- •
- 2002.01.29 01:50
- 2 COMMENTS
- /
- 0 LIKES
-
라민웁•2002.01.29 01:57저도 사용해본 결과 win98과 me 에서는 에러가 없던데.. 2000에서는 에러가 나더군요. 저는 다...
-
와니•2002.01.29 02:03고맙습니다... 근데 전 win98se ...
