[Delphi] edit에 숫자만 입력하기

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
	if Key in ['0'..'9', #25, #08, #13] then
	else
	begin
		Key := #0;
		ShowMessage('숫자만 입력하세요');
	end;
end;

댓글

이 블로그의 인기 게시물

WOL(Wake On Lan) 기능 사용

시간에 요일 표시