if not(Key in ['0'..'9']) then begin
Key := #0;
end;
'오래된 글들 > Gentlecat's Job' 카테고리의 다른 글
| advstring Grid 체크박스 넣기 (0) | 2008.11.19 |
|---|---|
| 폼 얼지 않게 sleep 주기 (0) | 2008.11.19 |
| 파일복사 (1) | 2008.11.19 |
| 파일삭제 함수 (0) | 2008.11.19 |
| grid 첫 데이터 선택하기 (0) | 2008.11.19 |
| TWebBrowser 로드 완료 체크 (0) | 2008.11.19 |
| TWebBrowser 엔터키 먹게 하기 (0) | 2008.11.19 |
| Grid 특정셀 색깔 or 폰트칼라 (0) | 2008.11.19 |
| grid 드래그 카피하기 (0) | 2008.11.19 |
| delphi2007 에서 suipack skin 의 모양이 틀어질때 (0) | 2008.11.19 |