Q&A

  • DBEdit의 KeyPress 이벤트시 Error
다들 안녕하시죠?



저 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가 꼭 두번씩 나옵니다....



0  COMMENTS