[Lazarus-es] ruidito

[José Antonio Cuello]

Revisa la herencia del componente con el foco ... en este caso si el
componente hereda de un TCustomButton no hace nada.

Te lo envié como una muestra y sacándolo sin mirar de un proyecto con la
idea de que vieras el funcionamiento del enter. para el caso del esc
seguramente no tienes que mirar el ActiveControl simplemente si key =
#27 cerrar el formulario.

El mié, 07-07-2010 a las 14:22 -0300, Paola Bruccoleri escribió:
> if Screen.ActiveControl.InheritsFrom(TCustomButton) then Exit;


________________________________________________________________________

ARTEX TRADING S.A.
José Antonio Cuello Principal