如何在程序中触发其它控件的程序？？

Question

我在一个edit 中的 onkeypress写的程序,我在其它控件中的程序中如何写代码才能触发 这个edit 的onkeypress 事件？？

Answer 1

有两种办法；1、先定义一个全局变量 var key : char
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  edit1.Text := 'dsf';
  kk := key;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
   edit1.OnKeyPress(self,kk);
end;
2、直接将edit1的onkeypress事件写成一个自定义过程；
然后在其他事件里调用这个过程；

Answer 2

如果你是大量调用的建议用方法2，因为除了button触发，你的edit也可以调用这段程序，省不少代码。