Mega Code Archive

 

Categories / Delphi / Examples

 

That annoying beep in tedit

{ -Does anybody know how I can supress the BEEP in a TEdit component while -pressing the RETURN key? Trap the <Enter> key in the TEdit's OnKeyPress handler. Here's the sort of thing I've been using to make the <Enter> key behave like the <Tab> key in a TEdit... } procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); BEGIN if (Key = #13) then {= gotcha! =} BEGIN Key := #0; {= kill the beep =} PostMessage(Handle, WM_NEXTDLGCTL, 0, 0); {= move to next tab stop =} END; END;