Desactivar beep en mi aplicacion

[Kenobi]

Hola amigos, lo dicho tengo tedit que desde los cuales hago un locate, ahora bien al presionar enter #13 encuentre o no el resultado hace un beep, el tipico sonido de alerta de windows, evidentemente quiero desactivar esta caracteristica en todos los formularios de la aplicacion...

Gracias por su ayuda....

[roman]

Quizá funcione esto. Pon una componente ApplicationEvents en tu formulario y programas su evento OnMessage así:

Código Delphi [-]
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
  if (Msg.message = WM_CHAR) and (Msg.wParam = VK_RETURN) and (Self.ActiveControl is TEdit) then
    Handled := true;
end;

// Saludos

[BuenaOnda]

Hola..
Buenissimo el codigo del compañero Roman, pero si solo es en un Edit, podrias utilizar esto...

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
     IF Key=#13 THEN
     BEGIN
          //Aqui todas tus operaciones..
            Key:=#0; //Evitamos el Beep..
     END;
end;

espero que te sirva....

[roman]

Empezado por BuenaOnda

pero si solo es en un Edit, podrias utilizar esto...

Así es, y eso iba a contestar hasta que leí:

Empezado por Kenobi

quiero desactivar esta caracteristica en todos los formularios de la aplicacion

// Saludos