KeyPress de TCustomControl
Publicado por Condor Moai (3 intervenciones) el 28/05/2005 01:45:10
Hola qué tal.
Escribí una clase que deriva de TCustomControl. Cómo han de saber, TCustomControl es descendiente de TWinControl, y éste último tiene un procedimiento protegido que se llama "KeyPress", declarado de esta forma:
protected procedure KeyPress(var Key: Char); dynamic;
que se supone es invocado cuando el componente recibe una tecla presionada por el usuario. Yo escribí un método en la clase que derivé de TCustomControl, también protegido, de esta forma:
type
TControlCreado = class(TCustomControl)
protected
KeyPress(var Key: Char); override;
end;
Y pasa que este procedimiento nunca es llamado cuando ejecuto el programa y presiono alguna tecla para probarlo.
Cabe decir que todo se compila bien, incluso está puesto en la barra de componentes (ahí donde están TButton, TImage, etc) y ya he iniciado el programa desde Delphi con F4, desde el principio del método KeyPress, y pasa lo que les digo: nunca se ejecuta esta parte.
¿Alguien sabe en qué parte me estaré equivocando?.
Escribí una clase que deriva de TCustomControl. Cómo han de saber, TCustomControl es descendiente de TWinControl, y éste último tiene un procedimiento protegido que se llama "KeyPress", declarado de esta forma:
protected procedure KeyPress(var Key: Char); dynamic;
que se supone es invocado cuando el componente recibe una tecla presionada por el usuario. Yo escribí un método en la clase que derivé de TCustomControl, también protegido, de esta forma:
type
TControlCreado = class(TCustomControl)
protected
KeyPress(var Key: Char); override;
end;
Y pasa que este procedimiento nunca es llamado cuando ejecuto el programa y presiono alguna tecla para probarlo.
Cabe decir que todo se compila bien, incluso está puesto en la barra de componentes (ahí donde están TButton, TImage, etc) y ya he iniciado el programa desde Delphi con F4, desde el principio del método KeyPress, y pasa lo que les digo: nunca se ejecuta esta parte.
¿Alguien sabe en qué parte me estaré equivocando?.
Valora esta pregunta


0