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