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