Главная страница | назад





Article #15759: Prevent the TEdit component from beeping when invalid

 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