Q&A

  • 에디터 박스에서 0부터 9 이외의 스트링이 들어가지 못하게 하려면...
에디터 박스에서 0부터 9 이외의 스트링이 들어가지 못하게 하려면 어떻게 해야하나요.

고수님들의 답변을 부탁드립니다.

이 게시물을
2  COMMENTS
  • Profile
    kylix • 2000.08.24 21:27
    // TEdit's OnKeyPress Event



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

    begin

    if not (Key in ['0'..'9']) then

    Key := #0;

    end;







  • Profile
    김영남 • 2000.08.24 20:48
    김태영 wrote:

    > 에디터 박스에서 0부터 9 이외의 스트링이 들어가지 못하게 하려면 어떻게 해야하나요.

    > 고수님들의 답변을 부탁드립니다.



    [ KEYPRESS 이벤트 ]

    if not(key in [#48,#49,#50,#51,#52,#53,#54,#55,#56,#57,#13,#9,#8]) then

    key := #0;



    제일 간단한 방법이겠죠? ^^
←First Page
2285 2286 2287 2288 2289 2290 2291 2292 2293 2294
Last Page→
한델 로그인 하기