我用代码创建了一个edit1,然后我怎么样才能执行它的Enter事件？

Question

我用代码创建了一个edit1,然后我想在它的Tedit1.onenter事件里加入一些自己的代
码，应该怎么做？如果我是通过拖到窗体上的方式创建，那我可以用鼠标双击它的
onenter事件便可，但我是用代码创建事件的，我应该怎么做？  

Answer 1

首先在单元的Private部分声明一个过程:
private
procedure MyEnter(Sender:TObject);implementationProcedure MyEnter(Sender:TObject);
begin
//写你的代码在这里
end;procedure 你的过程
begin
你的文本框.OnEnter:=MyEnter;
//呵呵,搞定了.
end;

Answer 2

up     pilicat(delphi迷) 他的对,不重答了.

Answer 3

procedure Enter ;override;