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;
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;
代码没问题,请考虑其他事情。
例如确定你的 btn1.OnClick 事件真实存在,mrok 真实有返回
btn1.OnClick(Sender); //这里出错,不能当FORM2关掉后自动按某键吗?
如果不做上面的这一步的话,
做些数据查询或更新的话,没问题,就是不能帮我按某键。
如果还有什么问题请参见:
http://topic.csdn.net/u/20100430/11/734690ad-4815-490b-bc1f-0882fd36889a.html?69742
或搜索 how to ask question the smart way