Как убрать звук из TEdit?

← →
dr Tr0jan © (2004-02-16 03:49) [0]

Как убрать звук, возникающий при нажатии клавиши Enter в TEdit?

← →
Defunct © (2004-02-16 04:28) [1]

Там звука по-умолчанию нет.

искать причину звука в TEdit здесь:
Control Panel -> Sounds and Audio Devices -> Sounds -> Sounds Scheme

← →
dr Tr0jan © (2004-02-16 04:53) [2]

Нет, просто когда пишешь чё-нить в TEdit, а затем нажимаешь кнопку (допустим "OK") все происходит нормально (т.е. все нормально обрарабатывается). А когда нажимаешь не кнопку, а клавишу Enter, то система пищит, ну что типа нельзя сюда нажимать, хотя в OnKeyPress все нормально обрабатывается. Даже когда никакое событие не назначаешь на TEdit, он все равно издает звук.

Пример с TButton:

procedure TForm1.Button1Click(Sender: TObject); begin showmessage("Test"); // <- здесь все нормально. end;

Пример с TEdit:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then showmessage("Test"); // В этом месте он издает звук - beep! end;

← →
gek © (2004-02-16 07:26) [3]

> if key=#13 then showmessage("Test");
> // В этом месте он издает звук - beep!

key=#0

← →
dr Tr0jan © (2004-02-16 12:12) [4]

2 gek © (16.02.04 07:26) [3]:

> key=#0

И причем здесь ноль?

← →
Anatoly Podgoretsky © (2004-02-16 12:16) [5]

Ни причем, но система ноль не обрабатывает, игнорирует

← →
Плохиш (2004-02-16 12:17) [6]

>dr Tr0jan © (16.02.04 12:12) [4]

> И причем здесь ноль?

Этим ты говоришь системе, что нажатие уже обработал и ей (системе) с ним больще делать ничего не надо.

← →
Oyster © (2004-02-16 12:22) [7]

> Key: Char

Интересно... У меня вроде всегда было Key: Word.

← →
Плохиш (2004-02-16 12:24) [8]

> Oyster © (16.02.04 12:22) [7]

Не путай OnKeyPress и OnKeyDown(Up) ;-)

← →
Anatoly Podgoretsky © (2004-02-16 12:28) [9]

Oyster © (16.02.04 12:22) [7]
У тебя неправильный метод, у нас Char

← →
dr Tr0jan © (2004-02-16 15:14) [10]

Все равно пищит!
А как сравнение писать If (key=#13) and/or (key=#0) then ... ?

← →
ssk (2004-02-16 15:20) [11]

отключи спикер
SystemParametersInfo(SPI_SETBEEP, 0, nil, SPIF_UPDATEINIFILE);

а потом включи
SystemParametersInfo(SPI_SETBEEP, 1, nil, SPIF_UPDATEINIFILE);

и все

← →
Игорь Шевченко © (2004-02-16 15:39) [12]

> отключи спикер

LOL

А чтобы не видеть неправильных вводимых символов надо еще и монитор отключить.

← →
ssk (2004-02-16 16:01) [13]

>надо еще и монитор отключить

тоже метод неплохой

← →
dr Tr0jan © (2004-02-17 06:21) [14]

Динамик отключать - это тупо! Может есть какие-нибудь другие методы?

← →
Defunct © (2004-02-17 07:03) [15]

Запустил приведенный Вами пример:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then showmessage("Test");
// В этом месте он издает звук - beep!
end;

Ничего не пишит, динамик включен.

Может все-таки посмотрите, что там в Sounds Scheme творится?

← →
ssk (2004-02-17 09:32) [16]

2 dr Tr0jan
>Динамик отключать - это тупо!

тогда мучайся

2 Defunct
>Может все-таки посмотрите, что там в Sounds Scheme творится?

спикер не имеет отношения к звуковым схемам

Я на днях с этим разобрался, надо было так писать:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then showmessage("Test"); key:=#0; // В этом месте он уже не издает звук - beep! end;

← →
Плохиш (2004-02-19 14:16) [18]

>dr Tr0jan © (19.02.04 14:09) [17]

Поздравляю! :-)

2Мастера. Конкурент-то растёт ;-)

PS. 2dr Tr0jan
Только пиши:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then begin showmessage("Test"); key:=#0; end; end;

← →
Дед (2004-02-19 14:26) [19]

У меня не KeyPress, а KeyUp, правда, и не Edit, a RichEdit, но последнее, думаю, не существенно. Никаких писков, и динамик обрывать не надо.

procedure TForm1.RichEdit2KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If Key=13 then Proc1(Sender);
If Key=27 then Proc2(Sender);
end;

> Дед (19.02.04 14:26) [19]
> Никаких писков, и динамик
> обрывать не надо

А может его у тебя нет? Такое бывает иногда... :)

← →
Дед (2004-02-19 15:32) [21]

> clickmaker

Да не, есть! Когда кот на клавиатуру садится, то пищит! :-)

2 Плохиш (19.02.04 14:16) [18]:

Упс, тупанул...

2 Дед (19.02.04 14:26) [19]:

Одно дело TEdit, а другое TRichEdit!

Как убрать звук из TEdit? Найти похожие ветки