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]

← →
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х не отключишь.

TEdit и звуковые эффекты Найти похожие ветки