delphi中如何编写多事件共一个相应……？

Question

我想在EDIT中输入数据后，鼠标失去焦点，和按回车键，共同一个结果，把结果输入数据库procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=13 then
 end;和这个procedure TForm1.Edit1Exit(Sender: TObject);
beginend;如何编写在一起……比较简练。多谢回答。

Answer 1

把过程写在Edit1Exit中,回车事件中写切换控件的代码,那有就会自动执行Edit1Exit事件或者自定义一个写入数据库的函数,在回车和Edit1Exit时调用,这样也好维护

Answer 2

回车事件中写切换控件的代码,那有就会自动执行Edit1Exit事件，
这个回车事件如何执行Edit1Exit事件……有个范例代码吗……，我是新手……多谢。

Answer 3

比如回车过程中写,button1.setfocus,那样edit就失去焦点,触发Edit1Exit事件或者回车过程中写 Edit1.OnExit(Edit1);

Answer 4

我是下载别人源码来学习的……我改成这样，如果edit为空……就不输入如何判断？
还有更加简单的写法吗？多谢。
procedure TfrmWordManager.BitBtn2Click(Sender: TObject);
begin
 close;
end;procedure TfrmWordManager.edtWordExit(Sender: TObject);var
 sSqlStr:string;
begin
 with frmdatabase do
 begin
  ADOWordMan.close;
  ADOWordMan.SQL.Clear;
  sSqlStr:='insert into word(word,mean) values(:Word,:Mean)';
  ADOWordMan.SQL.Add(sSqlStr);
  ADOWordMan.Parameters.ParamByName('Word').Value:=Trim(edtWord.Text);
  ADOWordMan.Parameters.ParamByName('Mean').Value:=Trim(edtMean.Text);
  ADOWordMan.ExecSQL;
  Application.MessageBox('单词增加成功!', '提示', MB_OK + MB_ICONINFORMATION);
 end;
end;
procedure TfrmWordManager.edtWordKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=13 then
     edtWord.OnExit(edtWord);end;