Форум: "Основная";
Текущий архив: 2002.05.13;
Скачать: [xml.tar.bz2];
Вниз
TEdit и звуковые эффекты Найти похожие ветки
← →
Johnmen (2002-04-29 12:40) [0]Дано : При нажатие на Enter когда фокус на TEdit раздается некий звуковой сигнал :)
Вопрос : Как его загасить ? :)
Заранее благодарю.
← →
dimich (2002-04-29 13:02) [1]Некий-это системный(ну виндовский).
Возьми да определи на это событие свой звук и там же можно отключить. Модуль mmsystem функция playsound или что-то в этом роде.
← →
Song (2002-04-29 13:11) [2]Procedure TForm1.EditKeyPress(Sender:TObject; Var Key:Char);
Begin
IF (UpCase(Key)<"A") or (UpCase(Key)>"Я")) then Key:=#0;
End
← →
Vovchik (2002-04-29 13:11) [3]> dimich
Не, это отстой. Этот гадкий писк не так то просто убить, я для этой цели наколбасил компонент. Тот же Едит, только без писка. Могу положить в кладовку, если надо.
← →
Johnmen (2002-04-29 13:17) [4]Спасибо всем, но мне нужна идея...
>Song © : Не все так просто :)
← →
Song (2002-04-29 13:26) [5]Johnmen, special for you только что проверил. Не пикает с моиим варинатом на onKeyPress
← →
Vovchik (2002-04-29 13:30) [6]>Song
А ты уверен?
В любом случае, у тебя не все допустимые клавиши оставлены. робел, например.
← →
Johnmen (2002-04-29 13:30) [7]>Song © : Попробую... Делал на OnKeyDown...
← →
gek (2002-04-29 13:36) [8]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then key:=#0
end;
Никаких позывов к звуку
← →
Johnmen (2002-04-29 13:36) [9]>Song © : Действительно помогает ! Спасибо !
(вот что значит быть зацикленным на определенных приемах...
не дошел до простого решения...:) )
← →
Song (2002-04-29 13:36) [10]2Vovchik © (29.04.02 13:30)
А что код пробела, больше кода буквы "А"?
← →
Vovchik (2002-04-29 13:48) [11]>Song
Нет, код пробела меньше А. А у тебя написано запретить всё, что меньше А.
← →
Song (2002-04-29 13:50) [12]2Vovchik © (29.04.02 13:48)
Вот, мля, любители попридираться. Из примера видно приемер решения проблемы и не больше. Про пробел я не подумал сразу.
← →
Alx2 (2002-04-29 13:51) [13]Может, просто устройство Beep отключить?
← →
Vovchik (2002-04-29 14:21) [14]> Song
Не попридираться, а вежливо указать товарищу на некоторые незначительные недочёты в предложенном им решении (коде).
Я же не для понта компонент клепал, потому что мне не удалось вырубить бип с помощью стандартных событий, которые есть в едите. Тем более компонент удобнее, т.к. не надо каждый раз это делать, а сделал один раз и всё.
>Alx2
В 9х не отключишь.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.05.13;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.005 c
