delphi - Firemonkey TFrame - 如何触发祖先 TFrame 事件？

Question

我创建了一个基本的 TFrame 类，例如 TBasicFrame

有一个名为 btnTest 的按钮，它执行一项简单的任务

showmessage('test');

在另一个 TForm 或 TFrame 上，我将这个 TBasicFrame 放在它上面。但是，当我单击此 btnTest 或具有 TBasicFrame 实例的 TForm/TFrame 时，显示消息不会运行。

我必须做些什么来确保祖先框架中的所有代码都能执行？这意味着即使将新的 TBasicFrame 实例放置在任何地方，showmessage('test') 也会运行。

有什么建议吗？

Answer 1

我认为，您通过在 IDE 中简单地双击按钮（在您的框架对象上）覆盖了此事件。所以你没有原始的通话事件。使用对象 TBasicFrame 检查 TBasicFrame 和 TForm 的 *.fmx 文件。