Скачать: CL | DM;

Звук при нажатии Enter   Найти похожие ветки 

← →
vegarulez   (2011-10-06 18:25) [0]

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

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

---

← →
vegarulez   (2011-10-06 18:26) [1]

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

---

← →
Омлет ©   (2011-10-06 18:32) [2]

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

---

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

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

---

← →
vegarulez   (2011-10-06 18:35) [4]

Благодарю ;)

---

← →
OW ©   (2011-10-07 13:00) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.004 c