Форум: "Основная";
Текущий архив: 2004.03.03;
Скачать: [xml.tar.bz2];
Вниз
Как убрать звук из 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 творится?
спикер не имеет отношения к звуковым схемам
← →
dr Tr0jan (2004-02-19 14:09) [17]Я на днях с этим разобрался, надо было так писать:
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;
← →
clickmaker (2004-02-19 14:47) [20]
> Дед (19.02.04 14:26) [19]
> Никаких писков, и динамик
> обрывать не надо
А может его у тебя нет? Такое бывает иногда... :)
← →
Дед (2004-02-19 15:32) [21]
> clickmaker
Да не, есть! Когда кот на клавиатуру садится, то пищит! :-)
← →
dr Tr0jan (2004-02-21 06:51) [22]2 Плохиш (19.02.04 14:16) [18]:
Упс, тупанул...
2 Дед (19.02.04 14:26) [19]:
Одно дело TEdit, а другое TRichEdit!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.03.03;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.008 c
