[델파이] TEdit 에서 숫자만 입력 가능!

Delphi Tip - TEdit 에서 숫자만 입력하는 방법 입니다.

 소스

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  // '0'~'9': 0~9 숫자
  //#3: Ctrl + C
  //#8: Tab
  //#13: VK_RETURN
  //#22: Ctrl + V
  if not (Key in ['0'..'9', #3, #8, #10, #13, #22]) then
    Key := #0;
end;

 

 마무리

 

텍스트 박스 입력란에 숫자만 입력 및 관련 특수문자까지 제거 하는 방법 입니다.