다들 안녕하시죠?
저 DBEdit로 숫자를 입력받아 DB에 저장하려고 하는데
아래와 같이 KeyPress Event에 입력했는데 숫자판의 숫자도 안먹고, 키보드 상단의 숫자들도 무조건 숫자를 입력하라고 나옵니다.
procedure TForm1.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in [#48..#57]) then
begin
Showmessage('0에서 9까지만 입력할 수 있습니다');
Key := #0;
exit;
end;
end;
그리고 ShowMessage가 꼭 두번씩 나옵니다....