如何为动态生成的窗体（放在DLL里）写他的KeyOnPress事件！

Question

先声明这样的过程；
procedure KeyPress(Sender: TObject; var Key: Char);
然后赋给form.onkeypress;不过在dll中没试过，你看看；

Answer 1

先声明这样的过程；
procedure KeyPress(Sender: TObject; var Key: Char);
然后赋给form.onkeypress;不过在dll中没试过，你看看；

Answer 2

不行的，直接声明的过程不能赋给form.onkeypress！

Answer 3

//你是这个意思吗？？
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure AKeyPress(Sender: TObject; var Key: Char);
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.AKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then showmessage('asdf');
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  self.OnKeyPress := form1.AKeyPress;
end;end.