Q&A

  • Edit문에 대해서..
Edit에 입력할때 숫자만 들어갈수 있게 하려면 어떻게 해야 될련지

그리고

입력된 값이 숫자인지 아님 문자인지 인식해서 숫자면

그대로 입력되고 문자면 메세지 띄우려 합니다..

알려 주세요....



1  COMMENTS
  • Profile
    김종호 1999.07.12 09:45
    이룡 께서 말씀하시기를...

    > Edit에 입력할때 숫자만 들어갈수 있게 하려면 어떻게 해야 될련지

    > 그리고

    > 입력된 값이 숫자인지 아님 문자인지 인식해서 숫자면

    > 그대로 입력되고 문자면 메세지 띄우려 합니다..

    > 알려 주세요....

    >

    Edit의 이벤트중에 KeyPress가 있습니다.

    이곳에 보면 key라는 파라미터가 있거든요.

    이 key값은 현재 입력된 key를 말합니다.

    이것을 비교하면 되겠지요.

    예를 들면...



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

    begin

    if (key < '0') or (key > '9') then

    begin

    ShowMessage('숫자만 입력하세요.');

    key := #0;

    end;

    end;



    이렇게요.. ^^;