Ограничение ввода с клавиатуры.

[Tsuyu]

Подскажите, пожалуйста, как можно ограничить ввод(в Edit)с клавиатуры(KeyPress, KeyDown), не используя лист разрешенных символов?

[Pavia]

Код: Выделить всё

procedure TForm3.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in ['0'..'9', #8, #13]) then Key:=#0;
If (Key=#8) and (Length((Sender as TEdit).text)=1)  then
   begin
   Key:=#0;
   (Sender as TEdit).text:='0';
   end;
if Key=#13 then (Sender as TEdit).OnChange(Sender);
end;


[Tsuyu]

Спасибо большое, разобрал всё, кроме предпоследней строки.
if Key=#13 then (Sender as TEdit).OnChange(Sender);
При нажатии PauseBreak ничего не изменяется.

[Дож]

#13 — это Enter

[Tsuyu]

Где можно посмотреть полный список клавиш?

[Дож]

https://ru.wikipedia.org/wiki/ASCII

https://msdn.microsoft.com/en-us/library/windows/desktop/dd375731(v=vs.85).aspx