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

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

Звук при нажатии Enter [D7, XP]

vegarulez ©   (2011-10-06 18:25:00) 

Привет всем мастерам!
Господа подскажите как избавить от такой проблемки - у меня на событие в TEdit  на нажатие кнопки Enter висит обработчик - переход на другой Edit так вот всё рабит всё норм - но млин виндовое "дыньканье" при нажатии Enter уже задолбало - как сделать так чтобы при нажатии Enter прога ее "дынькала"?

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
 Edit2.SetFocus;
end;

---

OW   (2011-10-07 13:00:00) [1]

против всяких тупых программок давно решил, радикально:
схема без звука, PC спикер вынут.
(
не отрезан :), демонстративно, а отсоединен.
Пригодится пики bios слушать, если грузиться не будет вдруг
)

---

vegarulez   (2011-10-06 18:35:00) [2]

Благодарю ;)

---

Игорь Шевченко   (2011-10-06 18:33:00) [3]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
   key := #0;
   Edit2.SetFocus;
 end;
end;

---

Омлет   (2011-10-06 18:32:00) [4]

if key = #13 then
begin
 Edit2.SetFocus;
 Key := #0;
end;

---

vegarulez   (2011-10-06 18:26:00) [5]

*как сделать так чтобы при нажатии Enter прога НЕ "дынькала"?

---

Наверх