Hello,
My program creates a TForm dynamically, and puts on it an ActiveX (the
crystal viewer if you must know). I wish to define the event OnKeyPress
on that form, but I must be doing something wrong because it is never
called.
If someone could help me, I'm pretty sure it's nothing but I'm lost at
what to try next...
Please note that TFormCrystal is defined within my main form.
___
type
TFormCrystal = class( TGL_SE_CustomBaseForm )
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormKeyPress(Sender: TObject;var Key: Char);
private
protected
public
constructor Create(AOwner: TComponent);
end;
constructor TFormCrystal.Create(AOwner: TComponent);
begin
KeyPreview := true;
OnKeyPress := FormKeyPress;
end;
procedure TFormCrystal.FormKeyPress(Sender: TObject;var Key: Char);
begin
showMessage('testing...');
end;
___
Many thanks in advance,
Mathieu
