form1有一个edit1 ，form2 有一个dbgrid，双击edit1 ，form2 跳出，双击dbgrid，edit1的text为dbgrid中的
个字段值。我是这样写的。procedureTform1.Edit1DblClick(Sender:TObject);beginform2.ShowModal;end;pr...
个字段值。我是这样写的。procedure Tform1.Edit1DblClick(Sender: TObject);
begin
form2.ShowModal;
end;
procedure Tform2.DBGrid1DblClick(Sender: TObject);
begin
form1.Edit5.Text:=self.qry_tyjc013YUANG.AsString;
form1.Show;
end;
出现了预想的结果，可是运行好后，程序死了 展开
begin
form2.ShowModal;
end;
procedure Tform2.DBGrid1DblClick(Sender: TObject);
begin
form1.Edit5.Text:=self.qry_tyjc013YUANG.AsString;
form1.Show;
end;
出现了预想的结果，可是运行好后，程序死了 展开
1个回答
展开全部
form2.ShowModal;这里是不对的，改成show
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
