TWebBrowserに対し動的にイベントを追加する。 (ID:39046)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

TWebBrowserは親の設定が通らなかった気がするんですが、
D6はOKなんですかね？

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
    procedure WebBrowserDocumentComplete(ASender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
  public
    { Public 宣言 }
    aWebBrowser : TWebBrowser;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  aWebBrowser := TWebBrowser.Create(Self);
  //http://www.wwlnk.com/boheme/delphi/tips/tec1620.htm
  TOleControl(aWebBrowser).Parent  :=  Self;
  aWebBrowser.Width := 300;
  aWebBrowser.Height:= 300;
  aWebBrowser.OnDocumentComplete := WebBrowserDocumentComplete;
  aWebBrowser.Navigate('http://www.google.co.jp/');
end;

procedure TForm1.WebBrowserDocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  Caption := 'DocumentComplete';
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る