Edit - enter sem beep

Top  Previous  Next

How to Avoid a Beep on Enter KeyPress 

 

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

begin

    if (key = #13) then

    key := #0//Causes to avoid beep.

end;