Текущий архив: 2003.12.16;
Скачать: CL | DM;

Вниз

Beep сигнал   Найти похожие ветки 

← →
Cool_Zero   (2003-12-02 14:19) [0]

Плиз, помогите! Короче вопрос очень простой, неужно избавиться от стандартного звука(bepp) после нажати Enter в Edit.

---

← →
Pa5ha   (2003-12-02 14:34) [1]

Надо в keypress перехватить код и если ENTER то присвоить ему $00.
Пример:


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ord(key)=13 then key:=chr($00);
end;


---

← →
Cool_Zero   (2003-12-03 15:00) [2]

ОК, Спасибо!!!!!!!!!!!!!

---

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

Текущий архив: 2003.12.16;
Скачать: CL | DM;

Наверх

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