Buenas,
Resulta que cree un componente Button a partir de la clase TcustomControl para asi tener control total sobre el dibujado del componente, pero tengo un problema con el KeyPreview del form. Esta propiedad esta activada en el form y tengo capturadas las teclas de las flechas y el ENTER para simular el TAB
Código:
if key = 13 then
PostMessage(self.handle,WM_NEXTDLGCTL,0,0);
En un Tbutton cuando teniendo el foco le pulsas ENTER captura la tecla y manda el evento onclick pero no se ejecuta el onkeydown del form. En el custom control se ejecuta primero el onkeydown del form y despues el keydown del control.
Esta es la definicion de codigo que tengo en el componente para la captura de teclas
Código:
protected
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure KeyUp(var Key: Word; Shift: TShiftState); override;
published
property OnKeyDown;
property OnKeyPress;
property OnKeyUp;
Como puedo evitar que se llame al onkeydown del form aunque tenga el keypreview??? estoy seguro que es capturando un evento CM pero no encuentro cual