Звук при нажатии 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]

Благодарю ;)

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

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