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

2025-05-10 12:59:58
推荐回答(2个)
回答(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.

回答(2):

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