如何引用onkeypress

Question

form1.Edit1KeyPress(sender,key);

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var ch: Char;
begin
  ch := #13;
  Edit1KeyPress(Sender,ch)
end;

Answer 2

这样应该可以。
form1.Edit1KeyPress(sender,#13);

Answer 3

建立一个过程
type
  TForm1 = class(TForm)
  private
   procedure KeyPress(Sender: TObject; var Key: Char);
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}
procedure TForm1.KeyPress(Sender: TObject; var Key: Char);
begin
 //这里填写你的处理过程
end;然后指定edit1的keypress事件处理过程调用上面的过程
edit1.onkeypress=keypress;

Answer 4

不可以,应该用genphone_ru(票票)的方法