请教高手，如果调用动态创建的TEDIT控件的KEYDOWN事件

我创建EDIT是一个TEDIT数组

解决方案 »

  1.   

    调用已有的Edit1 OnKeyDown事件。
    Edit1KeyDown(Edit1,Vk_Return,[ssShift]);动态创建TEDit 的KeyDown事件。
     Edit1.OnKeyDown:=自定义的OnKeyDown事件。
      

  2.   

    先定义过程
    procedure EditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    然后事件赋值
    for i:=0 to 127 do
      Edit[i].OnKeyDown := EditKeyDown;
    最后是实现
    procedure TForm1.EditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
      

  3.   

    你先声明一个过程然后用指针关联这个过程就可以了
    过程的参数应该是和onkeydown一样的