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;