Delphi：声明变量避免循环引用

Question

我有一个Delphi单元，它需要保存应用程序的各种形式的指针，以便以后对它们进行操作。

为了执行这些操作，我需要将指针转换为表单类型，例如。

var    
  ptrFrmMain: Pointer;
  CurrentFrmMain: TfrmMain;
begin
    CurrentFrmMain := ptrFrmMain;
    CurrentFrmMain.Close();
end;

问题是这个单元包含在应用程序的所有其他 Delphi 单元的使用中。因此，虽然我可以在接口部分声明一个简单的Pointer 类型，但我不能声明在其他单元中声明的类型（例如单元frmMain.pas 的TfrmMain）。

我可以通过在实现部分放置一个使用来解决这个问题，例如：

interface
type TMyThread = class(TThread)
  Public
    ptrFrmMain:Pointer
...

implementation
    uses frmMain

    var
      CurrentFrmMain: TfrmMain;

但仍然存在一个问题：我需要该变量特定于我的类实例，用于多线程目的，而不是通用全局变量。 但是我不能把它放在我的TmyThread 类中，因为TfrmMain 没有在那里声明，我不能把它放在接口部分的用途中。

一个解决方案是将CurrentFrmMain作为一个局部变量放在所有使用它的程序中，然后每次都进行CurrentFrmMain := ptrFrmMain转换，但是您知道更好的解决方案吗？

非常感谢您。

Answer 1

我根本不会在线程中放置表单指针。我会让线程持有回调函数，甚至是一个接口：

type
  TCloseProc: procedure of object;

  TMyThread = class(TThread)
  public
    CloseProc: TCloseProc;
    ...
  end;

...

begin
  if Assigned(CloseProc) then CloseProc();
end;

type
  IMyIntf = interface(IInterface)
  ['{9CC7DB9E-D47F-4B7D-BBF9-6E9B80823086}']
    procedure DoClose;
  end;

  TMyThread = class(TThread)
  public
    Intf: IMyIntf;
    ...
  end;

...

begin
  if Assigned(Intf) then Intf.DoClose();
end;

...

type
  TfrmMain = class(TForm, IMyIntf)
  public
    procedure doClose;
  end;

procedure TfrmMain.doClose;
begin
  Close;
end;

创建线程后，将 Form 方法分配给那些回调，或者将 Form 的接口实现传递给线程：

Thread := TMyThread.Create(True);
Thread.CloseProc := frmMain.Close;
Thread.Resume;

Thread := TMyThread.Create(True);
Thread.Intf := frmMain as IMyIntf;
Thread.Resume;

无论哪种方式，线程都不需要知道实际的表单，同时仍然满足特定于表单的功能。

Answer 2

取决于您所说的“保留各种形式的应用程序的指针，以便以后对它们进行操作”是什么意思。 - 那是什么（或几种）工作？这是一个关于通用软件设计、分解的问题，而不仅仅是circular reference 或任何其他特定于语言的问题。

如果您只想对任何表单进行相同的工作 - 那么您应该从相同的 BASE-FORM-CLASS 派生表单并保留对该基类的引用，而不是对特定表单类的引用。例如，如果您只需要 .Release 它们，则可以将它们全部保留为 TForm 类型引用，它们都来自它们。这只是提取通用抽象接口的一个典型案例。

TMyFormWithActions = class ( TForm ) .... end;    
TMyForm1234 = class ( TMyFormWithActions ) .... end;
TMyFormABCD = class ( TMyFormWithActions ) .... end;

您也可以不将通用功能提取到中间类中，而是提取到 MS COM interface 中，就像 Remy 在他的回答中显示的那样。然而，这与 MS COM 所基于的完全不同的内存模型（ARC one）接壤。虽然我不希望TForm 具有自动销毁引用计数，但我也不能完全确定它不会发生，尤其是在继承和复杂的应用程序中。因此，虽然我确实喜欢这种方法，但我省略了它，因为有时在实践中它可能会导致对象意外和过早死亡。如果您可以确保不会发生这种情况，尽管它可能是最干净的解决方案。

---

如果您需要执行不同的操作，那么您确实不仅可以存储对表单本身的引用，还可以存储对操作、软件 sn-ps 的引用。然后，您的线程声明类将构建一个通用框架来保存表单和过程数据单元。然后你会有额外的单元来执行这些特定的操作。

（线程和动作接口单元）== uses ==>（TMyFormABCD 单元的动作）uses ==（TMyFormABCD 表单声明单元）

作为一个简化选项，您可以使用与表单本身相同的单位来声明这些操作。然后，您将让所有表单单元都依赖于线程单元，但线程单元（重新制作为通用和特定表单不可知）将不再依赖于任何表单单元。可能它可能被称为“控制反转”。

看这个系列：http://www.uweraabe.de/Blog/2010/08/16/the-visitor-pattern-part-1/

---

另外一种设计方案，可以看作是实现这两种方法 - 将使用 Windows 消息。 您的“通用界面”，您的“操作”将由您制作的自定义 WM_xxx 消息（整数常量）表示。然后您的线程将使用PostMessage API 向表单发送这些操作信号。而那些形式——通过实现处理这些消息的方法（或通过不实现=忽略这些消息）将提供那些动作实现。

见：http://www.cryer.co.uk/brian/delphi/howto_send_custom_window_message.htm

PostMessage 可以从外部线程使用，但不能（轻松）返回值。 SendMessage 只能在 Delphi 主线程中使用。此外，您必须在发布消息之前检查是否MyTargetForm.HandleAllocated()。