• Algorithms
• Application
• Components
• Database
• Distributed aplication
• DLL
• Errors
• Events
• Hardware
• IDE
• Install Shield
• Internet
• Multimedia
• Object Pascal
• Operational system
• Others
• Security
• Third party
• Win API

Prevent the TEdit component from beeping when invalid

Question:

How can I prevent the TEdit component from beeping when invalid keystrokes are entered?

Answer:

Trap the KeyPress event for the keys you do not want, and set the key to #0 to prevent the beep.

Example:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

  if ((UpCase(Key) < 'A') or

  (UpCase(Key) > 'Z')) then

  Key := #0;

end;