如何从Edit控件创建一个新控件........

本人想从Edit控件创建一个新的控件edtInput,当按下空格键时调另外一个窗体，请问应如何定义事件及完成该功能的方法？

解决方案 »

  1.   

    type
      TMyEdit = class(TEdit)然后根据需要覆写Change或KeyUP、KeyDown事件吧
      

  2.   

    在edtInput的onKeyPress事件中加入:
    newForm := TnewForm.Create(self);
    newForm.top := Edit1.top + Edit1.height ; //如果你想设置显示位置,可以依次....
    newForm.showModal;
    newForm.free;在newForm的onExit事件中加入关闭自身, 将需要的信息写入edtInput.text.
      

  3.   

    type
      TMyEdit = class(TEdit)
    处理 Onkeypress事件！
      

  4.   

    那应该如何声明onkeypress事件啊？