Case(Delphi)

[Вадим Мошев]

В обработчике на нажатиt клавиш (OnKeyPressed) написать

if key not in ['1'..'4'] then key:=chr(0);

[CAMOBAP]

до этого уже сам допер.

procedure TForm5.sEdit6KeyPress(Sender: TObject; var Key: Char);
begin
If not (key in ['1'..'4']) then
Begin
Key:=chr(0);
end;
end;

вот только когда символ хочешь удалить при помощи backspace то нечего не выходит. а если delete то нормально.

[GetMax]

вот только когда символ хочешь удалить при помощи backspace то нечего не выходит

А нужно просто добавить backspase к "разрешенным клавишам"

If not (key in ['1'..'4',#8]) then
Begin
Key:=chr(0);
end;