Delphi 相当于 C# 的表单调用操作是什么（如何在 Delphi 中调用）？

Question

在我的 C# 项目中，我使用以下代码在其自己的类之外访问我的表单。

public static FormMain singletonInstance { get; private set; }

    public static void PFA(Action<FormMain> action) //PFA = PerForm Action
    {
        var form = FormMain.singletonInstance;
        if (form != null)
        {

            form.PerformAction(action);
        }
    }

    public void PerformAction(Action<FormMain> action)
    {
        if (InvokeRequired)
            Invoke(action, this);
        else
            action(this);
    }

而“FormMain”中的构造函数是：

    public FormMain()
    {
        InitializeComponent();
        singletonInstance = this;
    }

我不知道如何在Delphi中做到这一点。

问题（Delphi）：当我在其类之外调用时，如何更改表单上的某些内容（例如 Edit1.Text）？

提前致谢！

Answer 1

Invoke() 操作的需要与其类内部或外部的调用代码无关，有必要确保仅在线程上下文中调用对控件进行操作的方法控件具有线程关联性，这与 C# 或 .NET 无关，它是 Windows 工作方式所固有的。 控件/窗口的消息只能在创建它的线程中处理。 这对于 Delphi 也是如此，并且整个 VCL 也不是线程安全的。

Delphi VCL 中与 Invoke() 最接近的是 Synchronize() 方法。 它在辅助线程中使用，以安排在主 VCL 线程的上下文中执行的代码，主 VCL 线程是需要在其中创建所有 VCL 控件的用户界面线程，因此在其中处理这些控件的所有 Windows 消息，并且唯一真正可以安全地调用任何控制方法的方法。

Delphi 程序不会自行创建任何辅助线程，您必须自己创建。 但除非您这样做，否则一切都发生在主线程上下文中，并且无需调用 Synchronize()。 您只需调用您需要调用的方法即可。

继续您的示例：您为编辑控件设置新文本，如下所示：

Form1.Edit1.Text := 'foo bar baz';

这假设包含 TForm1 类的单元包含变量 Form1，通常情况下都是如此。 这类似于 C# 代码中的单例。 它之所以有效，是因为放置到表单上的所有控件都将具有公共可见性。

离题评论：

请注意，虽然这是相当常见的代码，但它违反了 得墨忒耳定律。 更改表单中的控件将需要随后更改以这种方式访问​​它们的所有代码。 但这完全是另一个讨论。