如何主动激活事件来替代手动操作?

Question

想要做的事情:
有一个EDIT 控件 
在他的ENTER事件处理函数OnEnter中有操作
在他的EXIT事件处理函数OnExit中有操作程序form上另外有个按扭
按下的时候
依次顺序激活EDIT控件的ENTER事件和EXIT事件处理函数换句话来说,就是不直接的操作这个EDIT控件,激活这个控件的相应事件依赖于其他的事件请问该怎么来做呢?
需要用什么函数?

Answer 1

简单地
procedure TForm1.Button2Click(Sender: TObject);
begin
   Edit1Exit(nil);  //调用Edit1的onexit
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 Edit1Enter(nil); ////调用Edit1的onenterend;

Answer 2

直接调用事件名柄过程，这是delphi手动激活事件的通用方法

Answer 3

TO:
keiy() 谢谢回帖 你的方法确实可行,不过我主要是想知道如何激活事件
TO:
shuremic(绿梦蓝馨) :)不好意思
TO:
sxqwhxq(步青云) 能不能麻烦你说详细点呢?最好举个简单的例子,谢谢.我还不太熟悉DELPHI

Answer 4

如果想通过按钮2激发按钮1的事件,可以这样
TForm1.Button2Click(Sender:TObject);
begin
   Button1Click(nil);//这与你直接按Button1没有任何区别
end;