Форум: "Основная";
Текущий архив: 2004.11.28;
Скачать: [xml.tar.bz2];

Вниз

Edit Beep   Найти похожие ветки 

← →
serj_m ©   (2004-11-13 13:48) [0]

Мастера подскажите плиз как убрать Beep из Edit"a когда нажимаешь клавишу Esc или Enter (он пищит!)

---

← →
begin...end ©   (2004-11-13 13:51) [1]

serj_m ©   (13.11.04 13:48)

Подсказываю: обрабатывать TEdit.OnKeyDown и заменять параметр Key.

---

← →
Palladin ©   (2004-11-13 13:54) [2]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If Key in [ #13,#27] Then Key:=#0;
end;

PS: Ответы не зависят от того, жирный шрифт или наклонный. От восклицательных знаков тоже не зависят.

---

← →
Anatoly Podgoretsky ©   (2004-11-13 20:09) [3]

Надо добавить две кнопки, одна Default, другая Cancel

---

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

Форум: "Основная";
Текущий архив: 2004.11.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.043 c