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




Вниз

Как заставить TEdit не генерить звуковой сигнал при включенном обработчике нажатий клавиш. 


Dmitriy(new)   (2001-12-18 14:29) [11]

TMyEdit= class(TEdit)
...
procedure KeyPress(var Key: Char); override;
...
End;

procedure TMyEdit.KeyPress(var Key: Char);
begin
case key of
#1..#12,#14..#26,#28..#255:;
else key:=#0;
End;
End;


и не "пищат".




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




Наверх






Память: 0.73 MB
Время: 0.024 c
1-22242           Sour                  2001-12-14 11:00  2002.01.08  
POP3


7-22444           VS                    2001-09-27 07:14  2002.01.08  
Как скопировать самого себя, если программа запущена


1-22005           Cossys                2001-12-17 16:57  2002.01.08  
Вывод всех форм приложения с активными заголовками


1-22096           Mikhalyov Dmitry      2001-12-19 15:55  2002.01.08  
О TObject в событиях


1-22196           T2                    2001-12-16 07:18  2002.01.08  
Desktop off