两窗体之间传递值的问题

Question

procedure Tf_xsxx.DBGrid1DblClick(Sender: TObject);
var
  name:string;
begin
    if f_jtxx.Enabled=false then
       begin
          name:=DBGrid1.Fields[0].AsString;
          f_jtxx.DBEdit1.Text:=name;
          f_jtxx.Enabled:=true;
          f_xsxx.Close;
       end;
procedure Tf_jtxx.SpeedButton1Click(Sender: TObject);
begin
   f_main.N11.Click;
   f_jtxx.Enabled:=false;
end;
有两个窗体f_jtxx跟f_xsxx,在f_jtxx中单击speenbutton1时通过主窗体菜单调用f_xsxx窗体......
但在调用时出现如下错误  "什么read of adrress 0000000.......一串"
错误在f_jtxx.enabled:=false;把他改为self.enable:=false这时这里不出错了...
可是在f_xsxx窗体中通过又击dbgrib返回一些值到f_jtxx中....可是又出现了这样的错误
为什么

Answer 1

是uses吗?写了,就算不写出现的错误应该也不是这样的呀

Answer 2

f_main.N11.Click;调用的窗体是f_xsxx窗体

Answer 3

f_jtxx.DBEdit1.DataSource.DataSet.fieldByName('itm').value:= DBGrid1.DataSource.DataSet.FieldByName('itm').value;盡量這樣給倆個數據感知控件傳值

Answer 4

我是双击dbgrid中的某一行传数据
并且错误出现的地方是
 f_jtxx.Enabled:=false;
 if f_jtxx.Enabled=false then
 f_xsxx.Close;
另外f_jtxx.enable:=false就在自己的窗体里

Answer 5

是这样子的我在一个窗体(f_jtxx)里有一个edit控件,存一些产品的编号,在旁边有一个按钮
单击这个按钮跳到另一个窗体(f_xsxx),这个窗体的dbgrib中存的是产品的详细信息,双击dbgrib中的一行把产品的编号传到f_jtxx窗体的edit.text中;
现在出现的错误是,我在调用f_xsxx时,把自己f_jtxx设为不能编辑f_jtxx.enabled:=false时这里出现那个错误码,改为self.enabled:=false里这里不出那个错误了,可以f_xsxx中的if f_jtxx.Enabled=false then
这一句时又出现那个错误....不知为何

Answer 6

你不防用用 自定意 属性看看了
property .........
这样来传值

Answer 7

我在做跟你同样的，是这么解决的
if FrmCodeQuery.ShowModal=1 then  //1是BitBtn的ModalResult=mrOk;
   DM.ADOSalesOrder.FieldByName('CUSTOMER_CODE').AsString:=DM.CodeQuery.FieldByName('客户代号').AsString;

Answer 8

我想是不是子窗体的问题....
我的f_main是父窗体....f_jtxx跟f_xsxx是它的子窗体
我把它们改成独立的问题就没有了....
那要在MDI窗体下实现这功能要怎么办