TWebBrowserに対し動的にイベントを追加する。

解決

裕子 2010-08-24 04:39:41 No: 39045

Delphi6を使っています。TWebBrowserを動的に作成する方法は以下の通り出来るのですが、何もない状態でTWebBrowser.OnDocumentCompleteのイベントを追加作成する方法をお教え下さい。宜しくお願いします。

procedure TFamain.Button1Click(Sender: TObject);
var
WebBrowse :TWebBrowser;
begin
WebBrowse :=TWebBrowser.Create(Self);
end;

monaa 2010-08-24 05:48:29 No: 39046

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.

裕子 2010-08-24 21:02:43 No: 39047

monaaさん有難う御座いました。無事解決出来ました！！
感謝、感謝です。

裕子 2010-08-24 21:03:57 No: 39048

「解決」忘れてました・・。