procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key > #65) and (Key < #125) then
begin
key := #0;
Exit;
end;
end;
이렇게 하면 영문은 하나두 입력이 안됩니다..다른값들역시 마찬가지지요..
영문자든 뭐든 모두 한바이트의 키값을 가지지만 한글입력모드일땐 키보드에서 날라오는 값이 2바이트이므로 이 키값이 적용이 되지 않아요...
자세한 것은 아스키 코드표를 참조하세요...
begin
if (Key > #65) and (Key < #125) then
begin
key := #0;
Exit;
end;
end;
이렇게 하면 영문은 하나두 입력이 안됩니다..다른값들역시 마찬가지지요..
영문자든 뭐든 모두 한바이트의 키값을 가지지만 한글입력모드일땐 키보드에서 날라오는 값이 2바이트이므로 이 키값이 적용이 되지 않아요...
자세한 것은 아스키 코드표를 참조하세요...