Não executar som do PC quando pressionar ENTER

[jonikaites 0]

Salve amigos.

 

No evento OnKeyDown de meus formularios, coloquei o seguinte codigo:

 

if Key = VK_RETURN then begin
	  SelectNext(ActiveControl, true, true);
   end;

Porém, sempre que ele muda de um edit para outro, o Windows emite o som configurado em "Aviso Sonoro Padrão".

 

A forma lógica que achei foi colocar neste evento no Windows nenhum som. Porém, alguns clientes meus gostam de personalizar o Windows, e cada vez q eles alteram essas configurações, o windows seta novamente o som para o "Aviso Sonoro Padrão". Aí a cada vez que ele pressiona ENTER o som é emitido.

 

Há alguma forma de não executar este som no PC do cliente via código do Delphi?

 

Desde já agradeço!

[BuGFiX 0]

é simples ^^

 

É só usar o envendo OnKeyPress ao invés de OnKeyDown e mudar o valor de Key para 0. Assim sera como se a tecla não tivesse sido pressionada e o windows não vai fazer aquele barulinho chato ;)

 

 if Key = #13 then
  begin
	Key := #0; // elimina o som irritante
	SelectNext(ActiveControl,True,True);
  end;
end;

flw http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif