Звук об ошибке как вырубить)

[Kukkk]

У меня есть текст эдит, в нем событие OnKeyDown и в нем if key=13.... Как сделать чтобы компьютер не пищал при нажатии?)))) У всех пищит ,кто пробовал.

[Карась]

А что заставляет его пищать?! Может завёлся суслик

Покажете весь блок if.

[alexBlack]

Пищит для комбинация Alt+Key. Нужно перекрыть CNSysKeyDown

 procedure CNSysKeyDown(var Message: TWMKeyDown); message CN_SysKeyDown;

procedure TEditViewControl.CNSysKeyDown(var Message: TWMKeyDown);
var ShiftState : TShiftState;
begin
   with Message do begin
      ShiftState := KeyDataToShiftState(KeyData);
      if ssAlt in ShiftState then begin
         if CharCode in [219, 221, 8] then begin
            Result := 1;
            KeyDown(CharCode, ShiftState);
            exit
         end;
      end;
   end;
   inherited;
end;

[Kukkk]

Спасибо большое!