Как заставить TEdit не пикать при нажатии недопустимых клавиш

Благодарю за поддержку!

Automatic translation

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Как заставить TEdit не пикать при нажатии недопустимых клавиш

Перехватите событие KeyPress и установите key = #0 для недопустимых клавиш.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if ((UpCase(Key) < 'A') or (UpCase(Key) > 'Z')) then
    Key := #0;
end;