Question

delphi 如何通过单击一个窗体的按钮给另一个窗体的控件赋值

如图，想实现点击确认，把选中的行的信息添加到身后的另一个窗体的表格中现在，通过前边的控件给后边的控件赋值时会报错：Access violation at address 0089DE49 in module 'server.exe'. Read of address 00000314.





Answer 1

如过是静态窗体，可用如下办法实现：

在主窗体的“接口部分”引用“子窗体单元”；在子窗体的“实现部分”引用“主窗体单元”。

如：

form1（unit1）为主简稿窗体，form2（unit2）为子窗体。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
unit Unit1;

interface

uses
  unit2,{*************}
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    棚桥procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
     form2.Show;
end;

end.

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Button1: 链咐猛TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

 uses unit1;  {*******************}

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
     form1.Edit1.text:=form2.Edit1.text;
     form2.hide;
end;

end.

追问

我和你写的一样，但是报错

追答

这种方法我用的很多，应该是没有问题的。

追问

那如果主窗体换成是frame呢，是不是就实现不了了？

Answer 2

图片模糊看不清，从报错信息来看，是Server在报错，Server是运悉丛行数据库的服务器吧，采用何种方式提供服务？三层/两层/其它。
常规三层设计中，前端产生信息需要提交的话，先要送到Server中，Server更新数据库后，再生成新的数缓亮据返回给前端，前端的代码量少，主要的业睁哪樱务逻辑都在Server上做。
你有源代码的话，先调试跟踪一下server报错处附近吧。

追问

问的问题没涉及到数据库，server是项目名，问题就是通过一个窗体的事件给另一个窗体的控件赋值就报错

追答

不知道你的源代码，所以只能猜测了。
你会不会是直接将前窗体的数值赋值到后窗？在点按钮的同时，前窗又调用了free，结果自然出现错误。
不论是不是这种原因，你先将需要的数值放到一个变量里，这个变量再通过procedure中的值传递到后窗(在这种模式下，即使前窗被free也没事)。如果你已是这种方式，那么就跟踪一下吧，F7和F8结合起来，容易跟踪到问题。

追问

值是可以传递过去的，就是给后窗控件赋值时报错

追答

后窗是啥控件？赋值之前create了吗？除非贴代码，否则没法回答了。