Ограничение ввода с клавиатуры.
Модератор: Модераторы
Ограничение ввода с клавиатуры.
Подскажите, пожалуйста, как можно ограничить ввод(в Edit)с клавиатуры(KeyPress, KeyDown), не используя лист разрешенных символов?
Код: Выделить всё
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;
Спасибо большое, разобрал всё, кроме предпоследней строки.
if Key=#13 then (Sender as TEdit).OnChange(Sender);
При нажатии PauseBreak ничего не изменяется.
if Key=#13 then (Sender as TEdit).OnChange(Sender);
При нажатии PauseBreak ничего не изменяется.
#13 — это Enter
Где можно посмотреть полный список клавиш?