Визуальные объекты - как отключить пиканье?

[delphicoding]

Здравствуйте!

1. При переходе между некоторыми полями по Enter программа передаёт ПИК (стандартный виндовый звук). Как можно отключить звуковые оповещения для одного объекта, а лучше для все формы??

2. Есть поле JvDBComboEdit, при переходе во все поля из другого поля, если в поле в которое перешли была уже какая-то информация - эта информция выделяется, но при входе в данное поле вся информация просто стирается (исчезает)! Как это можно исправить??

[delphicoding]

1. Поковырял код, нашёл в этом месте код:

postMessage(Компоненты(ActiveControl).Handle,WM_KEYDOWN,VK_INSERT,0)
или If (ActiveControl is компоненты) then Begin Key:=0;

А JvcEnterAsTab как раз был принудительно ОТКЛючен, при его включении как раз пикание дурацкое пропало, но при его включении при переходе по полям почему-то пропускается ряд стандартных компонент, например Edit,DBEdit... а с кодом Key:=#0 постоянно пикает
Есть предложения?

[BARNEY]

я спикер вытащил и не парюсь

хотя вопрос интересный...
нашёл в faq

Вопрос:
Как заставить TEdit не 'пикать' при нажатии недопустимых клавиш?

Ответ:
Перехватите событие KeyPress и установите key = #0 для недопустимых клавиш.

Пример:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
	if ((UpCase(Key) < 'A') or (UpCase(Key) > 'Z')) then
		Key := #0;
end;

[delphicoding]

Так написано же выше - что попытка замены на #0 уже предпринята и всё равно ряд полей пикает.

[Alter]

Значит в тех полях нет этой замены. Проверьте, может пропустили.

[chertovich]

в событии OnKeyDown:

if Key = 13 then Key := 0;

На счет "пиканья", а может так и надо?

[Stilet]

А может просто спикер в БИОСе отключить? Или порубать Звуки Виндовс?

[delphicoding]

А может просто спикер в БИОСе отключить? Или порубать Звуки Виндовс?

И это совет модератора??? Фии...

[chertovich]

Сообщение от delphicoding

И это совет модератора??? Фии...

Хотите получить умный ответ - задайте умный вопрос

[Stilet]

И это совет модератора?

Это совет системного администратора, который такие проблемы уже решал именно таким образом. Не нравится не делай.