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

Question

我有一个 TWebBrowser 对象，该对象在运行时创建并在后台使用，即不可见。问题是像 OnDocumentComplete 这样的事件在 Delphi2009 中不起作用或不会被触发。有什么建议吗？

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？

提前致谢。

Answer 1

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