如何从动态Frame更新主窗体Order.Id并通知其他Frame？

嘿，针对你这个Delphi里Form和动态Frame之间的状态同步问题，除了用DataModule公开Order对象的方式，还有几个更解耦、更优雅的方案，能完美避开循环引用的坑，同时实现你要的功能：

这种方式的核心是通过抽象接口隔离Form和Frame的依赖，完全避免循环引用。

首先定义一个接口，放在单独的单元（比如UnitOrderIntf）里，让Form和Frame都只引用这个单元：

// UnitOrderIntf.pas
unit UnitOrderIntf;

interface

type
  IOrderManager = interface
    ['{F5A3B7D1-2C4E-4F8A-9B0C-1D2E3F4A5B6C}'] // 替换成自己的GUID
    procedure UpdateOrderId(NewOrderId: Cardinal);
    procedure NotifyOrderIdChanged(NewOrderId: Cardinal);
  end;

implementation

end.

让TFormOrder实现这个接口：

// UnitFormOrder.pas
uses ..., UnitOrderIntf, UnitFrameSupp;

TFormOrder = class(TForm, IOrderManager)
private
  FOrder: TOrder;
  procedure SetOrderId(const Value: Cardinal);
  // 实现接口方法
  procedure UpdateOrderId(NewOrderId: Cardinal);
  procedure NotifyOrderIdChanged(NewOrderId: Cardinal);
public
  property OrderId: Cardinal write SetOrderId;
end;

procedure TFormOrder.UpdateOrderId(NewOrderId: Cardinal);
begin
  FOrder.Id := NewOrderId;
end;

procedure TFormOrder.NotifyOrderIdChanged(NewOrderId: Cardinal);
var
  I: Integer;
begin
  // 遍历所有FrameSupp，通知它们OrderId变更
  for I := 0 to High(FOrder.PageSupp) do
    FOrder.PageSupp[I].Frame.OnOrderIdChanged(NewOrderId);
end;

在TFrameSupp里持有接口引用，无需直接引用TFormOrder：

// UnitFrameSupp.pas
uses ..., UnitOrderIntf;

TFrameSupp = class(TFrame)
  BtnSave: TBitBtn;
  procedure BtnSaveClick(Sender: TObject);
private
  FSuppId: Cardinal;
  FSuppName: String;
  FOrderManager: IOrderManager;
  procedure OnOrderIdChanged(NewOrderId: Cardinal);
public
  constructor Create(AOwner: TComponent); override;
  destructor Destroy; override;
  property SuppId: Cardinal write FSuppId;
  property SuppName: String write FSuppName;
  property OrderManager: IOrderManager write FOrderManager;
end;

procedure TFrameSupp.BtnSaveClick(Sender: TObject);
begin
  if Assigned(FOrderManager) then
  begin
    FOrderManager.UpdateOrderId(100); // 更新主窗体的Order.Id
    FOrderManager.NotifyOrderIdChanged(100); // 通知其他Frame
  end;
end;

procedure TFrameSupp.OnOrderIdChanged(NewOrderId: Cardinal);
begin
  // 处理当前Frame收到变更后的逻辑
  FOrderId := NewOrderId;
end;

创建Frame时，把Form自身作为接口传递给Frame：

// FormOrder中创建Frame的代码片段
var
  NewPageSupp: TPageSupp;
begin
  SetLength(FOrder.PageSupp, Length(FOrder.PageSupp)+1);
  NewPageSupp := FOrder.PageSupp[High(FOrder.PageSupp)];
  NewPageSupp.TabSheet := TTabSheet.Create(PageControl1);
  NewPageSupp.Frame := TFrameSupp.Create(NewPageSupp.TabSheet);
  NewPageSupp.Frame.Parent := NewPageSupp.TabSheet;
  // 传递接口引用
  NewPageSupp.Frame.OrderManager := Self as IOrderManager;
end;

这种方式更轻量，适合简单的通知场景，Frame只负责触发事件，Form负责处理并同步其他Frame。

在TFrameSupp里定义事件：

// UnitFrameSupp.pas
type
  TOrderIdChangedEvent = procedure(Sender: TObject; NewOrderId: Cardinal) of object;

TFrameSupp = class(TFrame)
  BtnSave: TBitBtn;
  procedure BtnSaveClick(Sender: TObject);
private
  FSuppId: Cardinal;
  FSuppName: String;
  FOrderId: Cardinal;
  FOnOrderIdChanged: TOrderIdChangedEvent;
public
  constructor Create(AOwner: TComponent); override;
  destructor Destroy; override;
  property SuppId: Cardinal write FSuppId;
  property SuppName: String write FSuppName;
  property OrderId: Cardinal write FOrderId;
  property OnOrderIdChanged: TOrderIdChangedEvent read FOnOrderIdChanged write FOnOrderIdChanged;
end;

procedure TFrameSupp.BtnSaveClick(Sender: TObject);
begin
  FOrderId := 100;
  if Assigned(FOnOrderIdChanged) then
    FOnOrderIdChanged(Self, FOrderId); // 触发事件
end;

在TFormOrder里绑定事件处理：

// UnitFormOrder.pas
procedure TFormOrder.HandleFrameOrderIdChanged(Sender: TObject; NewOrderId: Cardinal);
var
  I: Integer;
  TargetFrame: TFrameSupp;
begin
  // 更新自身的Order.Id
  FOrder.Id := NewOrderId;
  
  // 遍历所有Frame，通知变更（跳过触发事件的Frame）
  for I := 0 to High(FOrder.PageSupp) do
  begin
    TargetFrame := FOrder.PageSupp[I].Frame;
    if TargetFrame <> Sender then
      TargetFrame.OrderId := NewOrderId;
  end;
end;

// 创建Frame时绑定事件
var
  NewPageSupp: TPageSupp;
begin
  SetLength(FOrder.PageSupp, Length(FOrder.PageSupp)+1);
  NewPageSupp := FOrder.PageSupp[High(FOrder.PageSupp)];
  NewPageSupp.TabSheet := TTabSheet.Create(PageControl1);
  NewPageSupp.Frame := TFrameSupp.Create(NewPageSupp.TabSheet);
  NewPageSupp.Frame.Parent := NewPageSupp.TabSheet;
  // 绑定事件
  NewPageSupp.Frame.OnOrderIdChanged := HandleFrameOrderIdChanged;
end;

原来的TOrder是record（值类型），多个组件共享状态时改成class（引用类型）更合适。通过构造函数或属性把同一个Order实例传递给所有Frame，所有组件操作的是同一个对象，变更自动同步。

先把TOrder改为类：

// 放在单独单元比如UnitOrder.pas
type
  TPageSupp = record
    SuppId: Cardinal;
    SuppName: String;
    TabSheet: TTabSheet;
    Frame: TFrameSupp;
  end;

TOrder = class
public
  Id: Cardinal;
  RefYear: Word;
  RefNo: Cardinal;
  Loaded: Boolean;
  Changed: Boolean;
  PageCust: TPageCust;
  PageSupp: array of TPageSupp;
  constructor Create;
end;

constructor TOrder.Create;
begin
  inherited;
  // 初始化默认值
end;

在TFrameSupp里添加Order属性接收共享实例：

// UnitFrameSupp.pas
uses ..., UnitOrder;

TFrameSupp = class(TFrame)
  BtnSave: TBitBtn;
  procedure BtnSaveClick(Sender: TObject);
private
  FSuppId: Cardinal;
  FSuppName: String;
  FOrder: TOrder;
public
  constructor Create(AOwner: TComponent); override;
  destructor Destroy; override;
  property SuppId: Cardinal write FSuppId;
  property SuppName: String write FSuppName;
  property Order: TOrder write FOrder;
end;

procedure TFrameSupp.BtnSaveClick(Sender: TObject);
begin
  if Assigned(FOrder) then
  begin
    FOrder.Id := 100; // 直接修改共享实例，主窗体和其他Frame自动同步状态
    // 如果需要额外通知逻辑，可以在这里添加事件触发
  end;
end;

在TFormOrder里创建Frame时传递Order实例：

// UnitFormOrder.pas
uses ..., UnitOrder, UnitFrameSupp;

TFormOrder = class(TForm)
private
  FOrder: TOrder;
  procedure SetOrderId(const Value: Cardinal);
public
  property OrderId: Cardinal write SetOrderId;
  constructor Create(AOwner: TComponent); override;
  destructor Destroy; override;
end;

constructor TFormOrder.Create(AOwner: TComponent);
begin
  inherited;
  FOrder := TOrder.Create;
end;

destructor TFormOrder.Destroy;
begin
  FOrder.Free;
  inherited;
end;

// 创建Frame时传递Order实例
var
  NewPageSupp: TPageSupp;
begin
  SetLength(FOrder.PageSupp, Length(FOrder.PageSupp)+1);
  NewPageSupp := FOrder.PageSupp[High(FOrder.PageSupp)];
  NewPageSupp.TabSheet := TTabSheet.Create(PageControl1);
  NewPageSupp.Frame := TFrameSupp.Create(NewPageSupp.TabSheet);
  NewPageSupp.Frame.Parent := NewPageSupp.TabSheet;
  NewPageSupp.Frame.Order := FOrder;
end;

• 接口方案：最解耦，扩展性强，适合复杂组件通信，但需要额外定义接口单元。
• 事件方案：轻量简单，代码量少，适合单向通知场景，逻辑清晰。
• 依赖注入（类共享）：状态同步最直接，无需额外通知逻辑，适合状态驱动的场景。

注意：遍历Frame时要确保类型安全，比如用is关键字判断类型。

内容的提问来源于stack exchange，提问作者REALSOFO