Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Компоненты / Как заставить TEdit не 'пикать' при нажатии недопустимых клавиш?

Как заставить 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;

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru