델파이 왕초보 wrote:

> dbeditbox에서dbeditbox로 엔터키로 포커스 옴기는 것

> 예)

> 부서디비에디터박스에서 앤터치면 사원번로 에디터박스로 포커스 옴기는것

>



안녕하세요

이런방법도 써보세요.

dbeditbox 가 taporder를 갖는지 안갖는지 헷갈리네요^^;

일반적인 EditBox 컴퍼넌트는 가능합니다.

글구 서은구님 말씀 저도 동감입니다.

그럼 20000.



dbeditbox KeyPress Event 에서



begin

if Key = #13 then dbeditbox.SetFocus;

end;

델파이 왕초보 wrote:

> dbeditbox에서dbeditbox로 엔터키로 포커스 옴기는 것

> 예)

> 부서디비에디터박스에서 앤터치면 사원번로 에디터박스로 포커스 옴기는것

>





procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);

begin

if Key = #13 then begin

SelectNext(Sender As TWinControl, True, True);

Key := #13;

end;

end;



원하시는 코드입니다..

이게시판에 수도 없이 올라온 질문의 답이기도 하구요..

"엔터키"라는 키워드 검색정도는 할줄 아는 매너는 가지시기 바랍니다.

반복되는 질문에 답하는 이들의 노고도 생각해보시고요..

초보라는 이름에는 항상 노력하는 자세가 어울릴겁니다.



-- 초보델피언으로 부터 --

답변 감사합니당

그런데 디비에디터 박스가 9개가 있는데

계속 엔터키를 치면 마지막 에디터박스까지 가는거

밑에 소스는 하나 밖에 이동하지 않거던여 ^^;;

이건 디비그리드에서 셀이동이잖아염

if key=#13 then

begin

dbgrid3.selectedindex:=dbgrid3.selectedindex+1;

end;

그리구 질문하나더 디비그리드에서 위에 소스는 마지막셀까지는 이동하는데

마지막셀에서 엔터키치면 추가되면서 다음줄 첨으로 이동하게 하는것 좀 부탁합니다

즐코하세염





서은구 wrote:

> 델파이 왕초보 wrote:

> > dbeditbox에서dbeditbox로 엔터키로 포커스 옴기는 것

> > 예)

> > 부서디비에디터박스에서 앤터치면 사원번로 에디터박스로 포커스 옴기는것

> >

>

>

> procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);

> begin

> if Key = #13 then begin

> SelectNext(Sender As TWinControl, True, True);

> Key := #13;

> end;

> end;

>

> 원하시는 코드입니다..

> 이게시판에 수도 없이 올라온 질문의 답이기도 하구요..

> "엔터키"라는 키워드 검색정도는 할줄 아는 매너는 가지시기 바랍니다.

> 반복되는 질문에 답하는 이들의 노고도 생각해보시고요..

> 초보라는 이름에는 항상 노력하는 자세가 어울릴겁니다.

>

> -- 초보델피언으로 부터 --

SelectNext라는 프로시져가 있습니다

확인해보세염..^^