VPF::Звук при KeyPress - Форум программистов

Дата 11.6.2008, 08:09 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 170
Регистрация: 17.3.2007
Где: Сириус, созвездие Большого Пса

Репутация: нет
Всего: нет

Задействовал:
ComboBox1KeyPress
Edit1KeyPres и т.д.
Отлавливаю нажатие Enter

Код


if Key=#13 then <что-нибудь делается>

так при окончании выполнения алгоритма постоянно раздаётся звук "Бом", что типа делаю что-то не так.
Как избавиться от этого звыка?

--------------------

Недавно пытался объяснить сыну, кто такой модератор. Сошлись на Мойдодыре.

Дата 11.6.2008, 08:25 (ссылка)

(голосов:1)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Звук издается при дефолтной обработке WM_CHAR у Edit'а

Цитата

Uses [predefined WndProc] the MessageBeep function for illegal characters.

Т.е. не только Enter, но и Escape, и Ctrl+X на пустом месте и т.д. smile

Я отключаю так:

Код


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = #13) or (Key = #27) then
    Key := Chr(0);
end;

--------------------

Let's do this quickly!
Rest in peace, Vit!

Дата 11.6.2008, 08:57 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

понятно что при Escape и Ctrl+X будет тоже такой же звук
а за помощь большое спасибо

--------------------

Недавно пытался объяснить сыну, кто такой модератор. Сошлись на Мойдодыре.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »