如何在不关闭非模态窗体的情况下向主窗体回传值

嗨，这个需求我之前也碰到过，非模态窗体要和主窗体同步数据，用回调或者自定义事件都是非常稳妥的方案，正好你提到了回调，我给你详细拆解两种常用的实现方式，都是Delphi里很成熟的做法：

这种方式直接明了，核心就是把主窗体的一个方法“传递”给非模态窗体，让它在需要的时候调用这个方法回传数据。

1. 先定义回调类型和数据结构
   在非模态窗体的单元（比如EditForm.pas）里，先定义一个用来传递数据的记录，以及回调方法的类型：

   type
     // 自定义记录，用来存你需要修改的字段
     TEditedData = record
       ID: Integer;       // 网格行的唯一标识，用来定位要更新的行
       UserName: string;  // 示例字段：用户名
       Age: Integer;      // 示例字段：年龄
       // 这里根据你的实际需求添加其他字段
     end;
   
     // 回调过程类型，参数是我们定义的记录
     TUpdateGridProc = procedure(UpdatedData: TEditedData) of object;
   

2. 在非模态窗体里添加回调变量
   在非模态窗体的类声明里，公开一个回调变量：

   type
     TEditForm = class(TForm)
       btnOK: TButton;
       // ... 其他控件
     private
       // 用来临时存储从主窗体传过来的原始数据
       FOriginalData: TEditedData;
     public
       // 回调变量，主窗体会把自己的方法赋值给它
       FUpdateGrid: TUpdateGridProc;
       // 用来接收主窗体传递的初始数据
       procedure LoadInitialData(Data: TEditedData);
     end;
   

3. 主窗体打开非模态窗体时绑定回调
   在主窗体的Modify按钮点击事件里，创建非模态窗体，传递选中行的数据，并绑定回调方法：

   procedure TMainForm.btnModifyClick(Sender: TObject);
   var
     EditForm: TEditForm;
     SelectedData: TEditedData;
   begin
     // 先从网格中获取选中行的数据，填充到SelectedData里
     SelectedData.ID := DBGrid1.DataSource.DataSet.FieldByName('ID').AsInteger;
     SelectedData.UserName := DBGrid1.DataSource.DataSet.FieldByName('UserName').AsString;
     SelectedData.Age := DBGrid1.DataSource.DataSet.FieldByName('Age').AsInteger;
   
     // 创建非模态窗体
     EditForm := TEditForm.Create(nil);
     // 传递初始数据
     EditForm.LoadInitialData(SelectedData);
     // 绑定回调方法：把主窗体的UpdateGridRow方法赋值给回调变量
     EditForm.FUpdateGrid := UpdateGridRow;
     // 显示窗体（非模态，所以用Show而不是ShowModal）
     EditForm.Show;
   end;
   

4. 主窗体实现回调方法
   这个方法负责接收回传的数据，更新网格：

   procedure TMainForm.UpdateGridRow(UpdatedData: TEditedData);
   begin
     // 根据ID定位到网格中的对应行
     DBGrid1.DataSource.DataSet.Locate('ID', UpdatedData.ID, []);
     // 更新字段值
     DBGrid1.DataSource.DataSet.FieldByName('UserName').AsString := UpdatedData.UserName;
     DBGrid1.DataSource.DataSet.FieldByName('Age').AsInteger := UpdatedData.Age;
     // 如果用的是数据集，记得提交修改（比如ClientDataSet的话用Post）
     DBGrid1.DataSource.DataSet.Post;
   end;
   

5. 非模态窗体的OK按钮触发回调
   在非模态窗体的OK按钮点击事件里，收集用户修改的数据，然后调用回调方法：

   procedure TEditForm.btnOKClick(Sender: TObject);
   var
     UpdatedData: TEditedData;
   begin
     // 收集用户在窗体上修改的数据
     UpdatedData := FOriginalData; // 先复制原始ID，用来定位行
     UpdatedData.UserName := edtUserName.Text;
     UpdatedData.Age := StrToInt(edtAge.Text);
   
     // 检查回调是否已赋值，避免空指针错误
     if Assigned(FUpdateGrid) then
       FUpdateGrid(UpdatedData);
   
     // 这里不要调用Close，保持窗体打开状态
   end;
   

如果觉得回调变量的写法有点“直白”，可以用Delphi原生的事件机制，本质上是对回调的封装，更优雅也更符合Delphi的编码习惯：

1. 定义事件类型
   同样在非模态窗体单元里：

   type
     TEditedData = record
       ID: Integer;
       UserName: string;
       Age: Integer;
     end;
   
     // 自定义事件类型，参数包含发送者（窗体）和更新后的数据
     TDataUpdatedEvent = procedure(Sender: TObject; UpdatedData: TEditedData) of object;
   

2. 在非模态窗体里添加事件属性

   type
     TEditForm = class(TForm)
       btnOK: TButton;
     private
       FOriginalData: TEditedData;
     public
       // 自定义事件属性
       OnDataUpdated: TDataUpdatedEvent;
       procedure LoadInitialData(Data: TEditedData);
     end;
   

3. 主窗体绑定事件
   修改Modify按钮的点击事件：

   procedure TMainForm.btnModifyClick(Sender: TObject);
   var
     EditForm: TEditForm;
     SelectedData: TEditedData;
   begin
     // 同样先获取选中行数据...
     SelectedData.ID := DBGrid1.DataSource.DataSet.FieldByName('ID').AsInteger;
     SelectedData.UserName := DBGrid1.DataSource.DataSet.FieldByName('UserName').AsString;
     SelectedData.Age := DBGrid1.DataSource.DataSet.FieldByName('Age').AsInteger;
   
     EditForm := TEditForm.Create(nil);
     EditForm.LoadInitialData(SelectedData);
     // 绑定事件处理方法
     EditForm.OnDataUpdated := HandleDataUpdated;
     EditForm.Show;
   end;
   

4. 主窗体实现事件处理方法

   procedure TMainForm.HandleDataUpdated(Sender: TObject; UpdatedData: TEditedData);
   begin
     // 和之前的UpdateGridRow逻辑一样，更新网格
     DBGrid1.DataSource.DataSet.Locate('ID', UpdatedData.ID, []);
     DBGrid1.DataSource.DataSet.FieldByName('UserName').AsString := UpdatedData.UserName;
     DBGrid1.DataSource.DataSet.FieldByName('Age').AsInteger := UpdatedData.Age;
     DBGrid1.DataSource.DataSet.Post;
   end;
   

5. 非模态窗体触发事件
   OK按钮的点击事件里：

   procedure TEditForm.btnOKClick(Sender: TObject);
   var
     UpdatedData: TEditedData;
   begin
     UpdatedData := FOriginalData;
     UpdatedData.UserName := edtUserName.Text;
     UpdatedData.Age := StrToInt(edtAge.Text);
   
     // 触发事件
     if Assigned(OnDataUpdated) then
       OnDataUpdated(Self, UpdatedData);
   end;
   

一些额外的小提醒 #

• 如果你不想重复打开多个非模态编辑窗体，可以在主窗体里声明一个FEditForm: TEditForm;的成员变量，创建前先判断if not Assigned(FEditForm)，这样每次点击Modify只会打开一个实例，还能复用已打开的窗体。
• 不要直接让非模态窗体访问主窗体的控件（比如MainForm.DBGrid1），这种写法耦合度太高，后期修改或者扩展会很麻烦，用回调/事件的方式解耦才是正确的做法。
• 如果你的数据结构比较复杂，也可以用类代替记录来传递数据，灵活性更高。

内容的提问来源于stack exchange，提问作者Jean-Philippe