使用Delphi在运行时创建TWebBrowser

发布时间：2020-12-15 04:14:48 所属栏目：大数据来源：网络整理

导读：我有一个TWebBrowser对象,它在运行时创建并在后台使用,即不可见.问题是像OnDocumentComplete这样的事件在Delphi2009中不起作用或没有触发.有什么建议？ procedure TfrmMain.FormCreate(Sender: TObject);begin FWebBrowser:= TWebBrowser.Create(Self); FWeb

我有一个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？

提前致谢.

解决方法

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!