Подать звуковой сигнал
Иногда удобен звуковой сигнал, который был бы слышен даже без колонок. Для этого используется встроенный в компьютер динамик – PC Speaker. Нужен он, например, если ваше поле ввода не разрешает вводить ничего кроме цифр, а пользователь пытается ввести буквы. Если поле ввода не будет никак на это реагировать, то пострадает клавиатура пользователя, если же вы будете выводить каждый раз сообщение MESSAGDLG или что - нибудь подобное , то пострадает ваша программа. Чтобы спастись от всего этого выдавайте короткий звуковой сигнал. procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin
if not (Key in ['0'..'9']) then begin
Key := #0;
Beep;
end;
end;
