在Edit里敲回车，为何有“当当”的声音

如题，XP下出现这个问题，不知为何

解决方案 »

  1.   

    输入不该输入的键，提示。TEdit中敲Enter和Esc时，都这样。还有个更明显的，楼主可以试试Samples页上的TSpinEdit控件，在那里面敲字母也是一样的“当当当”。如果想去掉回车的声音：
    procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
    begin
      if Key = #13 then
        Key := #0;
    end;
      

  2.   

    估计Memo，RichEdit里边按下向后删除键也有这样的情况吧
      

  3.   

    表示在edit里面不能输入回车符。
    笨办法：把电脑音箱关掉
      

  4.   

      跟踪了一下，是在OnKeyDown后，系统发送一个WM_CHAR, 13...的消息给Edit，然后在DispatchMessage(&Message);中发出的声音。估计是找不到控件时发出的声音。具体就不知道是为什么了，汇编看不懂。 :(
      

  5.   


    procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
    begin
      if Key = #13 then
        Key := #0;
    end;这个应该可以 楼主可以试验一下
      

  6.   

    是啊,不习惯,
    我现在上班是用vfp,就没有delphi这么麻烦.
    要想回车移到下一控件,还要写代码
    要想适应还真要一段时间.
      

  7.   

    当当当Only   you   ~~~~
      

  8.   

    可是这个EDIT是铁做的，建议你在外面包一层海绵