[Lazarus-es] ruidito

Paola Bruccoleri pbruccoleri en adinet.com.uy
Mie Jul 7 00:10:09 CEST 2010


Hola a todos..

en todos los forms que hago, establezco la propiedad keypreview en true, 
y en el evento keyup hago esto:
procedure TfrmNumeradores.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key =  VK_ESCAPE) then
     close;
end;

para salir del form con la tecla escape (además de que se pueda salir 
con el botón cerrar o salir, etc).

Resulta que en algunos forms, al apretar escape, hace un ruidito, pero 
en otros no.
No tengo idea cuál propiedad o qué es lo que le pone ese ruidito que es 
medio molestoso.. tipo "clin"

es un detalle bien bobo.. pero para mover un poco la lista en estos días :)
chauuuuuuuuuuuu




More information about the Lazarus-es mailing list