能这样么？！

Question

Edit1有一个onKeypress事件！现Button1里怎么样去执行edit1 的onKeyPress里的事件！

Answer 1

可以，edit1.onkeypress（edit1,'需要输入的字符'）；

Answer 2

给你个例子：procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.onkeypress(edit1,'0');  ——》这样就可以在edit1中输入一个字符 0 了 
end;

Answer 3

那你就一个一个的写吗！ 使用onkeypress一次只能输入一个字符，不然就用其它的办法吧！

Answer 4

// 模拟按键
Edit1.Perform(WM_KEYDOWN, Key, 0);   // Key是 virtual-key code