procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    try
      form2:=tform2.Create(Application);
      if form2.ShowModal = mrok then
      begin
        edt1.Text:=form2.edt1.Text;
        btn1.OnClick(Sender);  //这里出错,不能当FORM2关掉后自动按某键吗?
      end;
    finally
      Form2.Free;
    end;
  end;
end;

解决方案 »

  1.   

    这里出错是怎么错?
    代码没问题,请考虑其他事情。
    例如确定你的 btn1.OnClick 事件真实存在,mrok 真实有返回
      

  2.   

    当FORM2返回时,
    btn1.OnClick(Sender); //这里出错,不能当FORM2关掉后自动按某键吗?
    如果不做上面的这一步的话,
    做些数据查询或更新的话,没问题,就是不能帮我按某键。
      

  3.   

    你是不是没有实现btn1的OnClick事件啊?
      

  4.   

    我不复制代码试过能敢在一楼回答么?
    如果还有什么问题请参见:
    http://topic.csdn.net/u/20100430/11/734690ad-4815-490b-bc1f-0882fd36889a.html?69742
    或搜索 how to ask  question the smart way
      

  5.   

    不好意思,是我错了,成功了。谢谢。是我的FORM2在关闭时出错了