procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
ShowMessage('TopListKeyPress');
if not (Key in ['0'..'9', '']) then
Key := #0;
end;
hsr///////////////////////////////////////////////////
메모장에 키보드를 누를때 숫자 0~9와
백스페이스바 (보면 ''로 표시되었든데요 #8와 같은 뜻입니다)
이외의 값은 무시한다는 뜻입니다.
즉 숫자와 <- 이외의 버튼은 안받겠다는 말입니다.
TMemo형 하나를 만들고 다음의 이벤트를 만들었습니다... 그런데 프로시저 안에 다음의 코드가 어떤 의미를 말하는 건지여.... 알려주시면 고맙겠습니다. 감사합니다. procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char); b...
홍성락
•
2002.07.13 03:30
hsr///////////////////////////////////////////////////
메모장에 키보드를 누를때 숫자 0~9와
백스페...
메모장에 키보드를 누를때 숫자 0~9와
백스페이스바 (보면 ''로 표시되었든데요 #8와 같은 뜻입니다)
이외의 값은 무시한다는 뜻입니다.
즉 숫자와 <- 이외의 버튼은 안받겠다는 말입니다.