evento on keypress y componente dinamico

[dec]

Hola,

Si lo que quieres es asignar a un componente un método para su evento "OnKeyPress" debes implentar en un objeto un procedimiento con los parámetros adecuados para responder a dicho evento:

Código Delphi [-]
   procedure TeclaPresionada(Sender: TObject; var Key: Char);

Por ejemplo, en el siguiente código se implementa un método con los parámetros adecuados dentro de un formulario y se asigna al evento "OnKeyPress" de dicho formulario el método en cuestión aprovechando el evento "OnCreate":

Código Delphi [-]
 unit UFormulario;
 
 interface
 
 uses
   Forms, SysUtils, Dialogs;
 
 type
   TfrmPrincipal = class(TForm)
     procedure FormCreate(Sender: TObject);
   private
     procedure TeclaPresionada(Sender: TObject; var Key: Char);
   end;
 
 var
   frmPrincipal: TfrmPrincipal;
 
 implementation
 
 {$R *.dfm}
 
 procedure TfrmPrincipal.FormCreate(Sender: TObject);
 begin
   OnKeyPress := TeclaPresionada;
 end;
 
 procedure TfrmPrincipal.TeclaPresionada(Sender: TObject; var Key: Char);
 resourcestring
   rsMsg = 'Se pulsó la tecla: %s';
 begin
   ShowMessage(Format(rsMsg, [Key]));
 end;
 
 end.