你的代码显示 Unit2 没有在 interface 部分使用 Unit1，这是正确的做法。要解决双向传递问题，你可以按照下面的方法修改：
首先在 Unit2 中：
1. 定义一个变量来存储 Unit1 的引用
2. 创建一个属性或方法来接收这个引用
修改后的 Unit2 代码：
unit Unit2;
{$mode ObjFPC}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
TForm2 = class(TForm)
f2Edit1: TEdit;
f2Edit2: TEdit;
Button1: TButton; // 添加一个按钮来测试传回数据
procedure Button1Click(Sender: TObject);
private
// 添加一个私有变量来存储 Unit1 的引用
FMyForm1: TObject; // 或者更具体的类型
public
// 公共属性，用于设置 Form1 的引用
property MyForm1: TObject write FMyForm1;
end;
var
Form2: TForm2;
implementation
{$R *.lfm}
procedure TForm2.Button1Click(Sender: TObject);
var
Form1Ref: TForm; // 根据实际情况调整类型
begin
// 将数据传回 Unit1
if Assigned(FMyForm1) then
begin
// 需要将 FMyForm1 转换为正确的类型
// 这里假设 FMyForm1 是 TForm1 类型
Form1Ref := TForm(FMyForm1);
// 如果知道具体的控件名，可以这样设置
// 注意：这里需要访问 Unit1 中的控件
// 你可以使用 with 语句，或者更好的方式是：
// 在 Unit1 中创建一个公共方法来接收数据
// 示例：将数据传回 Unit1 的某个 Edit
// (Form1Ref as TForm1).Edit1.Text := f2Edit1.Text;
// 为了安全起见，我们可以使用 RTTI 或者更好的设计模式
end;
end;
end.
更安全的方式是在 Unit1 中创建一个公共方法：
首先，修改 Unit1：
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Unit2;
type
TForm1 = class(TForm)
// ... 你的控件声明
Edit1: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Button4: TButton;
procedure Button4Click(Sender: TObject);
private
{ private declarations }
public
// 添加一个公共方法来接收 Unit2 传来的数据
procedure ReceiveDataFromUnit2(const AData: string);
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
procedure TForm1.Button4Click(Sender: TObject);
begin
// 将数据传给 Unit2 并显示 Unit2
if not Assigned(Form2) then
Form2 := TForm2.Create(nil);
// 将当前 Form1 的引用传给 Form2
Form2.MyForm1 := Self;
// 传递数据
Form2.f2Edit1.Text := Edit4.Text;
Form2.f2Edit2.Text := Edit5.Text;
Form2.Show;
end;
procedure TForm1.ReceiveDataFromUnit2(const AData: string);
begin
// 接收来自 Unit2 的数据
Edit1.Text := AData; // 或者任何你想设置的控件
end;
end.
然后，修改 Unit2 的 Button1Click 方法：
procedure TForm2.Button1Click(Sender: TObject);
begin
// 调用 Unit1 的公共方法来传递数据
if Assigned(FMyForm1) then
begin
// 安全地调用公共方法
// 这里假设 FMyForm1 是 TForm1 类型
(FMyForm1 as TForm1).ReceiveDataFromUnit2(f2Edit1.Text);
end;
end;
关键点总结：
1. 在 Unit1 中创建 Unit2 时，将 Self（当前 Unit1 实例）传递给 Unit2
2. 在 Unit2 中存储这个引用
3. 通过这个引用调用 Unit1 的公共方法来传递数据
4. 这样可以避免循环引用问题，同时实现双向数据传递
这样修改后，Unit2 就能将数据传回 Unit1 了。
以上回复来自 FishC AI 小助理，如未能正确解答您的问题，请继续追问。
( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)
狗仔卡
发表于 
置顶卡
千斤顶
显身卡
楼主
发表于 