delphi - 在运行时使用Delphi创建TWebBrowser

我有一个TWebBrowser对象，它在运行时创建并在后台使用，即不可见。问题是在Delphi2009中，诸如OnDocumentComplete之类的事件不起作用或未触发。有什么建议吗？

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  FWebBrowser:= TWebBrowser.Create(Self);
  FWebBrowser.RegisterAsBrowser:= True;
  FWebBrowser.OnDocumentComplete:= WhenDocIsCompleted;
end;

procedure TfrmMain.WhenDocIsCompleted(ASender: TObject; const pDisp: IDispatch;
  var URL: OleVariant);
begin
  ShowMessage('Doc is completed!');
end;

Navigate和Navigate2之间有什么重要区别？如何在此处启用Cookie？

提前致谢。

最佳答案

TWinControl(FWebBrowser).Parent := Form1;  // Parent property is read-only unless cast