procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', Char(VK_DELETE), Char(VK_BACK)]) then
Key := #0;
end;
'델파이' 카테고리의 다른 글
| [델파이팁]파일복사 copy (0) | 2009.10.29 |
|---|---|
| [델파이팁] System.ParamStr(0) 은 Application.ExeName과 같다 (0) | 2009.10.29 |
| [델파이팁]exit문이 try_finally_end에서는 예외적 (0) | 2009.10.23 |
| 모듈 중복실행 방지 (0) | 2009.10.16 |
| 도스(cmd) ftp 명령어와 배치파일로 파일받기 (0) | 2009.09.30 |