ＩＥのイベントを取得するには？

ＰＳＰ 2006-09-01 14:07:29 No: 23063

ＶＢで書くところの

Dim WithEvents IE As InternetExplorer

Private Sub Command1_Click()

  Set IE = CreateObject("InternetExplorer.Application")
  IE.Visible = True
  IE.Navigate2 "about:blank"

End Sub

Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)

MsgBox "test"

End Sub

こんな事をDelphiでしたいのですが、どうすればいいのでしょうか？

どうかな 2006-09-01 21:10:10 No: 23064

TInternetExplorerでウマクいけばラッキー。
ダメなら、TWebBrowserで。

たべすぎ 2006-09-14 18:45:42 No: 23065

procedure TForm1.Button1Click(Sender: TObject);
var
  ie : Variant;
begin
  ie := CreateOleObject('InternetExplorer.Application');
  ie.Visible := True;
  ie.Navigate2('about:blank');
end;

※usesにComObjを追加してください。

たべすぎ 2006-09-14 18:47:30 No: 23066

すみません↑の書き込みは無視してください。