Delphi：框架之间的通信

Question

框架之间和框架内如何通信？ 例如：框架 1 和框架 2。

框架 2 位于框架 1 中。要将框架 2 插入到框架 1 中，我从 ToolPalette -> 添加框架。

type
  TFrame1 = class(TFrame)
  Frame22: TFrame2;

  var MyFrame1:TFrame1; // Now I can access to everything within a frame and from other frames too
implementation

但我在尝试访问 MyFrame1 并在框架 1 内或从其他框架中执行类似 MyFrame1.Button1.Enable 的操作时遇到错误： “异常类 EAccessViolation 带有消息“模块‘P1.exe’中地址 0084858C 处的访问冲突”

如何从帧 2 访问帧 1？ MyFrame1->错误。

谢谢！

Answer 1

请删除全局变量声明：

var MyFrame1: TFrame1;

它通常对框架没有意义。

您可以将子框架的 Owner 类型转换为 TFrame1，例如：

implementation

uses
  FrameUnit1;

procedure TFrame2.Test;
begin
  if Owner is TFrame1 then
    ShowMessage(TFrame1(Owner).Name);
end;

Answer 2

TOndrej 提到使用 Owner，但这通常是形式，而不是 Frame1。 Frame2 的父级应该是 Frame1，因此：

uses
  Frame1Unit;

procedure TFrame2.Test;
var
  C: TControl;
begin
  if Parent is TFrame1 then
    ShowMessage(TFrame1(Parent).Name)
  else 
    for C in Parent.Controls do
      if C is TFrame1 then
        ShowMessage(TFrame1(C).Name);
end; 

更新添加了使用 Parent.Controls 查找 TFrame1 的代码。