使用同名表单的正确方法

Question

我有一个项目有两个同名的表单。我需要使用一个或另一个。我假设我可以使用 IFDEF 来区分它们，但我发现我不能在没有编译器抱怨的情况下将它们都添加到项目中。我的 uses 子句如下所示。

uses
uFileManager, uMount, uSkyMap, uAntenna,
{$IFDEF SDR}
 uSDR,
{$ENDIF}
{$IFDEF R7000Serial}
 uR7000,
{$ENDIF}
uDatabase;

{$R *.dfm}

'uSDR'和'uR7000'单位都有一个名为'Receiver'的表格。当我尝试在项目中添加 'uR7000' 单元时，我得到： "The project already contains a form or module named Receiver"

如何将这两个单元添加到一个项目中？

Answer 1

首先，不是编译器在抱怨，而是 IDE。

编译器 不关心您是否有同名的表单或其他类型，只要它们在不同的单元中即可。 VCL 的一个著名示例是存在两种 TBitmap 类型，一种在 Graphics 中，另一种在 Windows 中。如果您需要明确说明您指的是哪种类型，您只需在代码中限定类型名称，编译器就会按照它的指示进行操作。

bmpA: Graphics.TBitmap;   // bmpA is a TBitmap as defined in the Graphics unit
bmpB: Windows.TBitmap;    // bmpB is a TBitmap as defined in the Windows unit

没问题。

但是，Delphi 中的 持久性框架 确实关心您是否有 持久性 class具有相同名称，因为持久性框架仅通过其 非限定 名称来识别类型。

这就是为什么 Delphi 的每个第三方组件框架都在其 class 名称上使用前缀。这不仅仅是虚荣心或时尚。如果在同一个项目中使用两个库，它确保一个库中的组件不会（通过 Delphi 持久性机制）与另一个库中的另一个组件混淆。

底线： 坚持为您的表单命名并找到一些其他方式来区分它们或在它们之间切换if/as 需要。

如果没有关于您的项目的更多详细信息，那么很难准确地建议如何管理您对正在使用的特定表单的引用。您可以从一个共同的基础派生两者 class 或者您可以为每个定义一个接口来实现。

例如（这只是一个说明性草图，不是推荐或完整的解决方案）：

// Define the interface that your Receiver implementations 
//  must satisfy.  This might include returning a reference to the implementing form.
//
// e.g. in a unit "uiReceiver"

type
  IReceiver = interface
    function Form: TForm;  // returns the form using the common base type, not the specific implementation class
  end;


// in unit uSDR
TfrmSDRReceiver = class(TForm, IReceiver)
  ..implements IReceiver as well as your SDR specific needs
end;

// in unit u7000
TfrmR7000SerialReceiver = class(TForm, IReceiver)
  ..implements IReceiver as well as your R7000 Serial specific needs
end;


// In uReceiver (some unit to "resolve" the receiver)
interface

uses
  uSDR,
  uR7000;

  type
    TReceiver = class
      class function GetReceiver: IReceiver;
    end;

implementation

  class function TReceiver.GetReceiver: IReceiver;
  begin
  {$ifdef SDR}
     result := frmSDRReceiver;
  {$endif}
  {$ifdef R7000} 
     result := frmR7000SerialReceiver;
  {$endif}
  end;

end.

您的应用程序代码然后使用 uReceiver 单元（和 uiReceiver 如果您想引用接口类型，例如在变量中声明）并通过提供的静态 class 访问特定的 Receiver 实现，例如：

uses
  uReceiver;


implementation

  uses
    uiReceiver;


  ..
  var
    rcvr: IReceiver;
  begin
    rcvr := TReceiver.GetReceiver;

    rcvr.... // work with your receiver through the methods/properties on the interface

    // You can also work with the receiver form, accessing all aspects
    //  common to any TForm via the Form function on the interface (assuming
    //  you chose to provide one):

    rcvr.Form.Show;

    ..
  end;

使用同名表单的正确方法

Proper way to use forms with the same name

delphi

delphi-10-seattle