북해 wrote:

> 안녕하세요. 저는 간단한 메모장 프로그램을 만들려고 하는데요, 메인폼에서는 검색을 하고 서브폼에서는 입력을 하는 데이타 베이스 프로그램입니다. 그런데, 서브폼에서 Bitbtn를 클릭하면 onClick이벤트가 발생되어 form2.close 로 폼을 닫게 만들었는데요, 그런데 이상하게도 서브폼의 Edit1 과 Memo에서 Enter를 쳐도 이 Bitbtn.onClick 프로시져로 들어가서 서브폼이 닫혀지더군요. 서브폼에는 Edit, Memo, Bitbtn 세개의 컴포넌트가 있는데, 이 셋중에 어느 하나라도 클릭하거나 Enter키를 쳐도 Bitbtn.onClick 프로시져를 실행시키더라구요. 이게 왜 이렇게 되는 건가요?

>



BitBtn이라면... 아마 프로퍼티 중에 ModalResult 라는게 있을겁니다.

이게 mrOK로 되있는 경우에 이런 상황이 발생하던데...

한번 확인해보시지요.. mrNone이 정상입니다만.

짧은 경험이었습니다...

Edit을 클릭해도 그 이벤트가 발생하나요? Memo도요?

이상하군요..

Edit에서 Enter를 시면 그 이벤트가 발생할 수도 있습니다.

만약에 BitBtn.Default가 True로 되어있으면 말이죠.

BitBtn.Default는 입력창(TEdit같은것들)에 Focus가 가있는 상태에서도 Enter를 치면 BitBtn을 누른 효과가 나죠.

예를 들면 이름과 전화번호같은 것을 쓰는데 TAb으로 Focus를 이동하고 Enter를 치면 마치게 되게 하기 위한것이죠.

Default값을 False로 주시던가 더 좋은 방법은 Edit의 OnKeyPress이벤트에서



If Key = #13 then

begin

*여기는 다음콘트롤로 이동하시던가 무슨일을 하신 후...

Key := 0; <-- 이것이 Enter를 잡아먹게 하는것이죠.

end;



아니면 폼2의 전체에서 하시고 싶으시면 폼2의 KeyPreview프로퍼티를 True로 주시고 폼2의 OnKeyPress에서 하시면 폼2의 모든컨트롤에서 키가 눌렸을 때 이이벤트가 발생합니다. 그리고 그 이벤트에서 처리해 주시면됩니다.



북해 wrote:

> 안녕하세요. 저는 간단한 메모장 프로그램을 만들려고 하는데요, 메인폼에서는 검색을 하고 서브폼에서는 입력을 하는 데이타 베이스 프로그램입니다. 그런데, 서브폼에서 Bitbtn를 클릭하면 onClick이벤트가 발생되어 form2.close 로 폼을 닫게 만들었는데요, 그런데 이상하게도 서브폼의 Edit1 과 Memo에서 Enter를 쳐도 이 Bitbtn.onClick 프로시져로 들어가서 서브폼이 닫혀지더군요. 서브폼에는 Edit, Memo, Bitbtn 세개의 컴포넌트가 있는데, 이 셋중에 어느 하나라도 클릭하거나 Enter키를 쳐도 Bitbtn.onClick 프로시져를 실행시키더라구요. 이게 왜 이렇게 되는 건가요?

>