Desactivar beep en mi aplicacion
 

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....

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

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....

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

// Saludos