{
-Does anybody know how I can supress the BEEP in a TEdit component while
-pressing the RETURN key?
Trap the key in the TEdit's OnKeyPress handler.
Here's the sort of thing I've been using to make the
key behave like the 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;