Q&A

  • 어떻게 해야할지 모르겠어여..마니알려주세여..
각 에디트마다..이렇게 코딩을 했거덩요...근데..다음으로 이동할 것이 버튼이나..레디오그룹이면..엔터기를 눌러도 이동되지 않습니다..왜그러죠...알려주세요...





begin

if Key = #13 then // 입력한 값이 Enter key 이면 Enter key 값이 #13입니다

begin

Key := #0; // 키값을 초기화 합니다. 계속 Enter 키값으로 먹기 때문에 키값을 없애줘야합니다.

SelectNext(Sender as TWinControl, True, True); // 다음으로 이동합니다.

end;

2  COMMENTS
  • Profile
    김명성 2000.08.12 19:49
    한미르 wrote:

    > 각 에디트마다..이렇게 코딩을 했거덩요...근데..다음으로 이동할 것이 버튼이나..레디오그룹이면..엔터기를 눌러도 이동되지 않습니다..왜그러죠...알려주세요...

    >

    >

    > begin

    > if Key = #13 then // 입력한 값이 Enter key 이면 Enter key 값이 #13입니다

    > begin

    > Key := #0; // 키값을 초기화 합니다. 계속 Enter 키값으로 먹기 때문에 키값을 없애줘야합니다.

    > SelectNext(Sender as TWinControl, True, True); // 다음으로 이동합니다.

    > end;



    제가 옛날에 답변했던걸로 그대로 하셨는데요...

    먼저 각 에디트마다 다 해주실 필요가 없고요. 한 에디트에 만든다음

    다른 에디트의 KeyPress이벤트에서 작성하신 이벤트가 나타나니 그걸로 설정해주시면

    되지요..그럼 한번 코딩으로 모든 엔터키로 이동해야 하는 에디트에 적용이 되지요^^

    그리구, 버튼으로 이동은 잘 됩니다. 그런데, 주의하실점이 있는데,

    버튼이 panel위에 놓아 두셨는지, 어떻게 두셨는지 알아야 하거든요.

    panel위 놓여진 컴포넌트들은 그룹화가 됩니다.

    edit와 버튼이 어떻게 놓여 있는지를 말씀하시면 더 정확하게 알려드릴수 있습니다.

    그럼 즐코하세요^^

  • Profile
    허춘 2000.08.11 07:15
    한미르 wrote:

    > 각 에디트마다..이렇게 코딩을 했거덩요...근데..다음으로 이동할 것이 버튼이나..레디오그룹이면..엔터기를 눌러도 이동되지 않습니다..왜그러죠...알려주세요...

    >

    >

    > begin

    > if Key = #13 then // 입력한 값이 Enter key 이면 Enter key 값이 #13입니다

    > begin

    > Key := #0; // 키값을 초기화 합니다. 계속 Enter 키값으로 먹기 때문에 키값을 없애줘야합니다.

    > SelectNext(Sender as TWinControl, True, True); // 다음으로 이동합니다.

    > end;



    try this.

    PostMessage(Handle, WM_NEXTDLGCTL, 0, 0); // 다음으로 이동합니다