Notice
Recent Posts
Recent Comments
Link
일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | 3 | 4 | |||
5 | 6 | 7 | 8 | 9 | 10 | 11 |
12 | 13 | 14 | 15 | 16 | 17 | 18 |
19 | 20 | 21 | 22 | 23 | 24 | 25 |
26 | 27 | 28 | 29 | 30 | 31 |
Tags
- 데이터베이스
- 예제
- 시리얼 통신
- vb
- 소니
- xml
- Delphi
- 셋업
- Visual Basic
- 인스톨
- c#
- VB.NET
- MFC
- 초보
- SDK
- dll
- 파이어버드
- PostgreSQL
- MySQL
- 설치
- SQL
- Visual Studio 2005
- Firebird
- WIN32 SDK
- 기초
- 문자열
- 파라미터
- 입문
- 델파이
- winsock
Archives
- Today
- Total
프로그래밍 노트
델파이의 TEdit에서 숫자만 입력 가능하게 본문
TEdit에서 숫자만 입력 가능하게 하는 방법
procedure TfrmTest.edtTestKeyPress(Sender: TObject; var Key: Char);
begin
// 숫자만 입력 가능하게
if (key in ['0'..'9']) or (Key = #8) then
else
Key := #0;
end;
아래와 같이도 할 수 있음
iKey := ord(Key);
if iKey = $08 then exit;
if not(iKey in [$30..$39]) then
begin
Key := #0;
exit;
end;
Comments