Главная Информер Журнал Форум Wiki DRKB Discuz!ML Помощь проекту


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