Delphi - 从窗体访问框架对象

Question

我需要运行一个附加到按钮(比如 SQLBtn)的操作，该按钮位于我的应用程序中的 Frame1 上，来自 Form1。
我已将框架包含在 Form1 使用中，但似乎无法以任何方式解决。
我试过 Frame1.SQLbtn TFrame1.SQLbtn TFrameSQLBtn 等，但无法访问它。
我想得到类似于“SQLbtn.click”的东西来运行它背后的事件。

有没有人知道如何解决它？

Answer 1

我不确定我是否正确理解了您的问题。听起来你有一个带有按钮的框架(按钮上有一个 TAction 或单击事件处理程序)并且这个框架位于一个窗体上。现在您想以编程方式模拟对该按钮的点击。

显然，您需要将框架单元添加到表单的 uses 子句中。您还需要表单上的框架实例，它应该导致框架类型的表单字段，例如

TForm1...
  ...
  Frame1: TFrame1;
end;

然后您可以从任何表单方法中通过 Frame1.SQLbtn.Click 执行该代码。更好的方法可能是在框架上提供一个公共(public)方法，您可以从表单中使用该方法。然后您不需要直接访问按钮(按钮是框架的实现细节，可以这么说是框架私有(private)的)。

澄清后编辑

我了解到您遇到以下情况:

TFrameForm1...
  ...
  Frame1: TFrame1;
end;

TForm1...
  ...
  procedure something;
end;

procedure TForm1.something;
begin
  // how to call a method on Frame1 which is on FrameForm1
end;

您最好的选择是将代码从框架按钮 OnClick 事件处理程序移到一个单独的单元中。这可以是一个数据模块，或者只是另一个具有独立过程的单元。然后您可以从 Form1 和 Frame1 按钮事件处理程序调用该代码。这是 Vegar 评论的内容。

如果那是不可能的，例如因为处理需要访问 Frame1 上的其他控件，所以将代码移到 Frame1 上的新过程中(我最初的建议):

TFrame1...
  ...
public
  procedure framestuff;
end;

procedure TFrame1.framestuff;
begin
  ...
end;

procedure TFrame1.SQLbtnClick(Sender...);
begin
  framestuff;
end;

现在您需要从 Form1 调用该方法。为此，您需要引用 FrameForm1。当您创建 TFrameForm1 时，您需要手动 (!) 初始化它。在此示例中，引用是一个字段 FFrameForm:

TForm1...
  ...
  FFrameForm: TFrameForm1;
  procedure something;      
end;

procedure TForm1.something;
begin
  FrameForm.framestuff;
end;

或者，默认情况下，Delphi 将所有表单的全局变量添加到表单单元(自动表单创建，检查项目选项/表单)。然后你这样做:

procedure TForm1.something;
begin
  FrameForm1.framestuff; // if FrameForm1 is the name Delphi used for the global variable
end;

当然还有很多其他的变化...