传递 nil 作为参数代替 TComponent

Question

当将 nil 传递给期望 TComponent 的构造函数时，我遇到了一些引发异常（不支持 EIntfCasterror Cast）的代码，如下所示：

obj := SomeClass.Create(nil);

它所在的单元不包含表单，甚至 TForm 也需要在调用其构造函数时将 TComponent 传递给它。如果存在任何东西或者有办法让它接受 nil，我应该通过什么来代替 nil。

谢谢。

另外，我没有调用这个方法的源代码，或者我只会让它传递它可以访问的表单。

编辑：修正了代码示例。

EDIT2：修正了代码示例，因为我第一次写它时有第二个脑袋放屁。

EDIT3：我也没有构造函数的代码。

Answer 1

EIntfCastError 与构造函数中传入的 Owner 无关。这是因为您尝试将一个接口转换为您认为它支持的另一个接口，而实际上它并不支持它。

MyNewInterface := MyInterface as IADifferentInterface;

您永远不会要求传入 Owner，即使在创建 TForm 时也是如此。以下代码完全合法：

var
  MyForm: TForm1;
begin
  MyForm := TForm1.Create(nil);
  try
    MyForm.ShowModal;
  finally
    MyForm.Free;
  end
end;

就是这样（虽然它很愚蠢 - 但它说明了这一点）：

implementation

var
  Button: TButton;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button := TButton.Create(nil);
  Button.Parent := Form1;
  Button.Left := 10;
  Button.Top := 10;
  Button.Caption := 'Button';
  Button.Name := 'MyDumbButton';
  Button.OnClick := TheButtonClick;
end;

procedure TForm1.TheButtonClick(Sender: TObject);
begin
  ShowMessage(TButton(Sender).Name + ' clicked');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Button.Free;
end;