Question and Answer Database FAQ759D.txt Prevent the TEdit component from beeping when invalid Category :VCL Platform :All Product :All 32 bit 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; 7/16/98 4:31:28 PM
Last Modified: 01-SEP-99