Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.06.2011, 17:24   #1
Crystallon
Форумчанин
 
Регистрация: 05.04.2010
Сообщений: 273
По умолчанию Идиотский звук при нажатии enter у TEdit

Если нажать enter когда фокус находится на компоненте TEdit издается раздражающий звук(что-то типа "дзынь"), как от этого избавится?
Заранее спасибо.
Crystallon вне форума Ответить с цитированием
Старый 21.06.2011, 17:55   #2
TwiX
Участник клуба
 
Аватар для TwiX
 
Регистрация: 28.07.2009
Сообщений: 1,510
По умолчанию

http://programmersforum.ru/showthread.php?t=4535

Соответственно в OnKeyDown/Up/Press (не помню в каком обработчик, но наверно OnKeyDown)

Код:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=VK_RETURN then
  key:=#0;
end;
TwiX вне форума Ответить с цитированием
Старый 21.06.2011, 18:48   #3
MyLastHit
Очень суровый
Участник клуба
 
Аватар для MyLastHit
 
Регистрация: 17.12.2009
Сообщений: 1,988
По умолчанию

Наверное лучше KeyDown не на форме, а на самом Edit...
И ТС, это не выключает Бип, а выключает действие клавиши Enter на Edit...
Ненавижу быть как все, но люблю, чтобы все были как я.

Последний раз редактировалось MyLastHit; 21.06.2011 в 18:50.
MyLastHit вне форума Ответить с цитированием
Старый 22.06.2011, 07:33   #4
Crystallon
Форумчанин
 
Регистрация: 05.04.2010
Сообщений: 273
По умолчанию

Спасибо за ответы, проблема решена
procedure TForm1.Edit1KeyPress;
begin
if Key = #13 then Key := #0;
end;
Crystallon вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ормируется объект размером 30х30 и он должен при нажатии на клавишу,двигаться в 8ми направлениях..а при н Krasoto4ka Помощь студентам 0 22.05.2010 17:41
При нажатии enter запускалась процедура Rusl92 Общие вопросы Delphi 9 01.10.2008 09:33
отправить содержимое Memo1 на Memo2, по нажатии enter Патрон Общие вопросы Delphi 2 08.03.2008 07:18
TEdit сохранение в файл и чтение при загрузке Casper-SC Помощь студентам 7 05.07.2007 03:16
Событие при нажатии клавиши Enter Inbox Общие вопросы Delphi 4 12.06.2007 14:18