form1,form2,form3...是单据窗口。
在数据模块DM中定义一个类,
TZLSelect=class       //数据检索方案类
    private
    public
      Ffangabh:string;              //方案编号
      Ffangamch:String;            //方案名称
      Fdialog_cap:String;        //方案窗口CAPTION
      Fdialog_hei:Integer;       //方案窗口高度
      Fdialog_wid:Integer;       //方案窗口宽度
      Fdisplyflds:String;        //显示字段的顺序
      Ffilterflds:String;        //过滤字段
      Ftree_visib:Boolean;       //是否显示分类树
      Fhzcode :String;          //分类方案编号
      Ftree_cap:String;       //分害方案标题
      Fmultisel:Boolean;      //检索方案是否允许多选
      Feditflds:String;       //可编辑字段名
      Fundispflds:String;    //不显示字段名
      Fzdysqls:String;      //主检索语句
      Ffocusto:String;       //焦点默认位置
      Fretu_one:Boolean;     //是否返回单行
      Fnocopyfld:String;      //不复制字段   index_flds
      Fzcxsqls:String;        //字查询SQL语句
      FFrm_zlselect:TFrm_zlselect;  //数据显示窗口
      / bgridEH:TDBGridEh;         //单据明细Grid  end;我在form1中的DBGRID上输入字符并回车后调用DM中的方法执行一SQL语句,数据显示在FFrm_zlselect中,在FFrm_zlselect上回车后想让数据填写回form1的一些EDIT上。我现在不知道如何在在FFrm_zlselect上回车后想让数据填写回form1的一些EDIT上?

解决方案 »

  1.   

    在FFrm_zlselect的 onkeydown事件中写入你的从数据库取值并付给Edit的代码就行了
      

  2.   

    onKeyPress事件中判断key=#13,如果是的话再做从数据库取值并付给Edit的代码
      

  3.   

    同时注意为了避免窗体循环引用,form1在interface下面的uses中引用FFrm_zlselect窗体模块,而FFrm_zlselect窗在implementation下面的uses中引用form1
      

  4.   

    先是引用Form1窗口然后
    在FFrm_zlselect的 onkeydown,或是onKeyPress事件中写入你的从数据库取值并付给Edit的代码就行了
      

  5.   

    感谢楼上四位。但这样的话。我要在FFrm_zlselect中引用form1,form2.form3.....,
    FFrm_zlselect是DM中的一个类的一个成员。能否用定义一个这个类的方法的办法。
    在form1,form2.form3.....,很多FORM中都要调用。
      

  6.   

    听说好象用个指针能方问到form1,form2.form3.....,??是吗?如何用啊?