Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как избавиться от системного beep?


cosinus ©   (2002-10-15 16:37:00) 

У меня на форме есть два edit-а. После заполнения Edit1 и нажатии на Enter я ставлю Edit2.SetFocus. Вопрос: как избавится от характерного beep при переходе (или, что скорее, при нажатии на Enter)?


Song   (2002-10-15 16:43:00) [1]

Обработать TEdit.onKeyPress и вернуть Key:=#0 во всех требуемых случаях.


kerk   (2002-10-15 16:43:00) [2]

В OnKeyPress

if Key = #13 then
begin
Key := #0; //убираем
Windows.SendMessage(Handle, WM_NEXTDLGCTL, 0, 0); //перейти на следуйщий контрол
end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо