Q&A

  • 델파이가 미친것 같습니다...ㅠ.ㅠ
모두들 안녕하세요. 이제 새해인데 모두 보람찬 새해가 됐으면 좋겠스니다.



제가 궁금한것은 제가 폼에 아래와 같이



프로시저문을 만들고 에디트박스을 여러게 놓고



그 버튼 keydown에 엔터가 눌리면 이벤트 발생하도록했는데



모든 폼에 있는 에디트박스에서 키다운에 각각 다른 이벤가



발생하도록 코딩했음에도 불구하고 모든 곳에서 아래 프로시저



문이 발생을 합니다. 도대체 왜저러는 건지???



procedure kill;

begin

if edtName = '' then

begin

MessageDlg('도서제목을 입력하세요.', mtconfirmation, [mbOk], 0);

edtName.setfocus;

exit;

end;

end;



____________________________________________________________________

procedure TfrmMain.edtBookNoKeyDown(Sender: TObject; var Key: Word;|

Shift: TShiftState); |

begin |

kill; |

end; |

ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡ



저 네모에와 같이 kill 프로시저를 호출하는 건 한군데만 쓰고 다른 에디트박스



에는 각각 다른 것을
4  COMMENTS
  • Profile
    jwz27 2002.01.02 19:44
    if edtName = '' then

    이부분이.....

    if edtName.text = '' then

    가 되어야하지 않나요?







    초짜 올림 wrote:

    > 모두들 안녕하세요. 이제 새해인데 모두 보람찬 새해가 됐으면 좋겠스니다.

    >

    > 제가 궁금한것은 제가 폼에 아래와 같이

    >

    > 프로시저문을 만들고 에디트박스을 여러게 놓고

    >

    > 그 버튼 keydown에 엔터가 눌리면 이벤트 발생하도록했는데

    >

    > 모든 폼에 있는 에디트박스에서 키다운에 각각 다른 이벤가

    >

    > 발생하도록 코딩했음에도 불구하고 모든 곳에서 아래 프로시저

    >

    > 문이 발생을 합니다. 도대체 왜저러는 건지???

    >

    > procedure kill;

    > begin

    > if edtName = '' then

    > begin

    > MessageDlg('도서제목을 입력하세요.', mtconfirmation, [mbOk], 0);

    > edtName.setfocus;

    > exit;

    > end;

    > end;

    >

    > ____________________________________________________________________

    > procedure TfrmMain.edtBookNoKeyDown(Sender: TObject; var Key: Word;|

    > Shift: TShiftState); |

    > begin |

    > kill; |

    > end; |

    > ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡ

    >

    > 저 네모에와 같이 kill 프로시저를 호출하는 건 한군데만 쓰고 다른 에디트박스

    >

    > 에는 각각 다른 것을
  • Profile
    파이공주 2001.12.31 19:05
    콤포넌트를 카피해서 쓰면은 이벤트도 같이 카피됩니다.

    다른 에디터박스의 Event를 확인하시면 되겠군여.



    Object Inspector에서 [Events]에서 확인해보세요.







    초짜 올림 wrote:

    > 모두들 안녕하세요. 이제 새해인데 모두 보람찬 새해가 됐으면 좋겠스니다.

    >

    > 제가 궁금한것은 제가 폼에 아래와 같이

    >

    > 프로시저문을 만들고 에디트박스을 여러게 놓고

    >

    > 그 버튼 keydown에 엔터가 눌리면 이벤트 발생하도록했는데

    >

    > 모든 폼에 있는 에디트박스에서 키다운에 각각 다른 이벤가

    >

    > 발생하도록 코딩했음에도 불구하고 모든 곳에서 아래 프로시저

    >

    > 문이 발생을 합니다. 도대체 왜저러는 건지???

    >

    > procedure kill;

    > begin

    > if edtName = '' then

    > begin

    > MessageDlg('도서제목을 입력하세요.', mtconfirmation, [mbOk], 0);

    > edtName.setfocus;

    > exit;

    > end;

    > end;

    >

    > ____________________________________________________________________

    > procedure TfrmMain.edtBookNoKeyDown(Sender: TObject; var Key: Word;|

    > Shift: TShiftState); |

    > begin |

    > kill; |

    > end; |

    > ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡ

    >

    > 저 네모에와 같이 kill 프로시저를 호출하는 건 한군데만 쓰고 다른 에디트박스

    >

    > 에는 각각 다른 것을
  • Profile
    초짜 올림 2001.12.31 22:00
    요~ 이제 이번년도 하루밖엔 남지 않았네요. 모두 건강하시구요 ^^



    님이 답변해주신건 질문올리기 전에 모두 체크 했었습니다. 심지어는 델파이 하나 더띄



    우고 거기에 에
  • Profile
    ㅡ.ㅡ^ 2002.01.01 04:24
    초짜 올림 wrote:

    > 요~ 이제 이번년도 하루밖엔 남지 않았네요. 모두 건강하시구요 ^^

    >

    > 님이 답변해주신건 질문올리기 전에 모두 체크 했었습니다. 심지어는 델파이 하나 더띄

    >

    > 우고 거기에 에