请问如何调用keypress事件.

Question

如果我在edit1的keypress事件中写有代码.
其中包括if key=#13 
      begin 
      end ;
这一段.我能否在一个按钮的click事件中直接调用该keypress事件(回车)呢?
我试着这样写,但不通过.
var a:tobject;
begin 
edit1.onkeypress(a,#13);
end ;
望指点.
实在不行我就只有将该段代码过程化了.

Answer 1

你的意思是在一个事件里再调用别的事件?
你可以在click事件中加入对应的组件的"事件方法".
例子:
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button2: TButton;
    Edit1: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
var i:char;
begin
edit1.OnKeyPress(edit1,i);
end;procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
showmessage('这是一个事件中调用事件的例子');
end;end.

Answer 2

vsice(为你) 的代码是不行的，改为以下代码：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button2: TButton;
    Edit1: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
var i:char;
begin
  Edit1KeyPress(edit1,i);
end;procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
showmessage('这是一个事件中调用事件的例子');
end;end.

Answer 3

用模拟按键解决：
keybd_event
或
PostMessage(Self.Handle, WM_KEYDOWN, VK_RETURN, 0);