Delphi 窗体间通信的经典解决方案，掌握后可以应对80%的窗体数据传递需求

Delphi 窗体间数据传递的「事件回调模式」套路总结

一、核心思想

「单向依赖 + 事件驱动」 - 下级窗体通过事件通知上级，避免双向引用导致的循环依赖。

二、标准套路（5步法）

第1步：定义事件类型（在下级单元）

// 关键：在下级单元定义事件类型
TDataSelectedEvent = procedure(Sender: TObject; 
  Param1: Type1; Param2: Type2; ...) of object;

 

第2步：暴露事件属性（在下级类）

TChildForm = class(TForm)
private
  FOnDataSelected: TDataSelectedEvent;  // 私有字段
public
  property OnDataSelected: TDataSelectedEvent  // 公开属性
    read FOnDataSelected write FOnDataSelected;
end;

 

第3步：触发事件（在下级适当位置）

// 在按钮点击、双击等事件中触发
if Assigned(FOnDataSelected) then
  FOnDataSelected(Self, Value1, Value2, ...);

 

第4步：实现事件处理（在上级单元）

// 上级类中实现处理方法
procedure TParentForm.HandleDataSelected(Sender: TObject; 
  Param1: Type1; Param2: Type2);
begin
  // 处理接收到的数据
end;

 

第5步：关联事件（创建下级窗体时）

ChildForm := TChildForm.Create(nil);
try
  ChildForm.OnDataSelected := HandleDataSelected;  // 关键关联！
  ChildForm.ShowModal;
finally
  ChildForm.Free;
end;

 

三、设计模式要点

1. 依赖方向

 

父窗体 (FrmRK) → 使用 → 子窗体 (FMTop20Record)
    ↑                          ↓
    |--（事件回调）------------|

• 编译时依赖：父→子（uses 子单元）

• 运行时通信：子→父（通过事件）

2. 松耦合设计

• 子窗体不知道谁处理事件

• 父窗体不知道子窗体内部实现

• 仅通过事件接口交互

3. 扩展性优势

• 同一子窗体可被多个父窗体复用

• 只需实现不同的事件处理程序

• 添加新参数只需修改事件类型定义

四、使用场景判断

适合使用此模式：

1. 父窗体打开子窗体选择/查询数据

2. 需要将子窗体的结果传回父窗体

3. 避免窗体间的循环引用

4. 希望子窗体可被多处复用

不适合此模式：

1. 简单的消息显示（用 ShowMessage）

2. 单向数据展示（用属性传递）

3. 复杂的主从窗体（用数据模块）

五、常见变体

变体1：多事件支持

// 子窗体可定义多个事件
property OnSelect: TSelectEvent;
property OnCancel: TCancelEvent;
property OnClose: TCloseEvent;

 

变体2：模态结果增强

// 结合 ModalResult 和事件
if Assigned(FOnDataSelected) then
begin
  FOnDataSelected(Self, Data);
  ModalResult := mrOK;  // 自动关闭
end;

 

变体3：带返回值的事件

// 事件处理程序可返回布尔值
TValidationEvent = function(Sender: TObject; Data: TData): Boolean of object;

 

六、对比其他方案

 

方案	优点	缺点	适用场景
事件回调	松耦合、可复用、类型安全	稍复杂	窗体间数据传递
接口方式	更灵活、支持多接口	更复杂、需定义GUID	复杂交互系统
全局变量	简单直接	紧耦合、难维护	简单原型
消息机制	完全解耦	类型不安全、调试困难	跨进程/复杂框架

七、最佳实践

1. 命名规范

   • 事件类型：T[动作]Event

   • 事件属性：On[动作]

   • 处理方法：Handle[动作]

2. 参数设计

   • 包含 Sender: TObject 参数

   • 按需传递最少必要数据

   • 避免传递大型对象（传ID而非对象）

3. 错误处理

   • 始终检查 Assigned(FOnXxx)

   • 在事件处理器中做好异常处理

   • 考虑添加取消机制

八、记忆口诀

「一下二暴三触发，四实五联搞定它」

• 一下：下级定义事件类型

• 二暴：暴露事件属性

• 三触发：适当时机触发事件

• 四实：上级实现处理方法

• 五联：创建时关联事件

这个套路是 Delphi 窗体间通信的经典解决方案，掌握后可以应对80%的窗体数据传递需求，既避免了循环引用，又保持了代码的清晰和可维护性。