Текущий архив: 2004.11.28;
Скачать: CL | DM;
Вниз
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.031 c
