Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TEdit и звуковые эффекты [D5, D6, Win95/98]

Johnmen © (2002-04-29 12:40:00)
Дано : При нажатие на Enter когда фокус на TEdit раздается некий звуковой сигнал :)
Вопрос : Как его загасить ? :)
Заранее благодарю.

Vovchik (2002-04-29 14:21:00) [1]
> Song
Не попридираться, а вежливо указать товарищу на некоторые незначительные недочёты в предложенном им решении (коде).
Я же не для понта компонент клепал, потому что мне не удалось вырубить бип с помощью стандартных событий, которые есть в едите. Тем более компонент удобнее, т.к. не надо каждый раз это делать, а сделал один раз и всё.

>Alx2
В 9х не отключишь.

Alx2 (2002-04-29 13:51:00) [2]
Может, просто устройство Beep отключить?

Song (2002-04-29 13:50:00) [3]
2Vovchik © (29.04.02 13:48)
Вот, мля, любители попридираться. Из примера видно приемер решения проблемы и не больше. Про пробел я не подумал сразу.

Vovchik (2002-04-29 13:48:00) [4]
>Song
Нет, код пробела меньше А. А у тебя написано запретить всё, что меньше А.

gek (2002-04-29 13:36:00) [5]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then key:=#0
end;

Никаких позывов к звуку

Johnmen (2002-04-29 13:36:00) [6]
>Song © : Действительно помогает ! Спасибо !
(вот что значит быть зацикленным на определенных приемах...
не дошел до простого решения...:) )

Song (2002-04-29 13:36:00) [7]
2Vovchik © (29.04.02 13:30)
А что код пробела, больше кода буквы "А"?

Vovchik (2002-04-29 13:30:00) [8]
>Song
А ты уверен?
В любом случае, у тебя не все допустимые клавиши оставлены. робел, например.

Johnmen (2002-04-29 13:30:00) [9]
>Song © : Попробую... Делал на OnKeyDown...

Song (2002-04-29 13:26:00) [10]
Johnmen, special for you только что проверил. Не пикает с моиим варинатом на onKeyPress

Johnmen (2002-04-29 13:17:00) [11]
Спасибо всем, но мне нужна идея...
>Song © : Не все так просто :)

Song (2002-04-29 13:11:00) [12]
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:00) [13]
> dimich
Не, это отстой. Этот гадкий писк не так то просто убить, я для этой цели наколбасил компонент. Тот же Едит, только без писка. Могу положить в кладовку, если надо.

dimich (2002-04-29 13:02:00) [14]
Некий-это системный(ну виндовский).
Возьми да определи на это событие свой звук и там же можно отключить. Модуль mmsystem функция playsound или что-то в этом роде.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »