[Lazarus-es] ruidito

[José Mejuto]

Hello Paola,

Wednesday, July 7, 2010, 12:10:09 AM, you wrote:

PB> en todos los forms que hago, establezco la propiedad keypreview en true,
PB> y en el evento keyup hago esto:
PB> procedure TfrmNumeradores.FormKeyUp(Sender: TObject; var Key: Word;
PB>   Shift: TShiftState);
PB> begin
PB>   if (key =  VK_ESCAPE) then
PB>      close;
PB> end;
PB> para salir del form con la tecla escape (además de que se pueda salir
PB> con el botón cerrar o salir, etc).
PB> Resulta que en algunos forms, al apretar escape, hace un ruidito, pero
PB> en otros no.
PB> No tengo idea cuál propiedad o qué es lo que le pone ese ruidito que es
PB> medio molestoso.. tipo "clin"
PB> es un detalle bien bobo.. pero para mover un poco la lista en estos días :)
PB> chauuuuuuuuuuuu

El "clin" ese creo que te pasa cuando el foco lo tiene un TEdit. No
hay mucho que puedas hacer ahora mismo ya que el reasignado de teclas
creo que no funciona en ninguna plataforma, de todos modos puedes
probar a poner:

procedure TfrmNumeradores.FormKeyUp(Sender: TObject; var Key: Word;
   Shift: TShiftState);
begin
   if (key =  VK_ESCAPE) then begin
      Key := 0;
      close;
   end;
end;

-- 
Best regards,
 José