Свойства TWebBrowser

[dacorp]

День добрый!
Возникла проблема при обработке события динамически созданного компонента TWebBrowser:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure BrowserDocumentComplete(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Browser: TWebBrowser;

implementation
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Browser:=TWebBrowser.Create(Form1);
Form1.InsertControl(Browser);
Browser.Top:=0;
Browser.Left:=0;
Browser.Height:=100;
Browser.Width:=100;
Browser.Align:=alClient;
Browser.Visible:=true;
Browser.Navigate('http://www.yandex.ru');
end;

procedure TForm1.BrowserDocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
 ShowMessage('Done');
end;

Отказывается срабатывать собитие onDocumentComplete Подскажите, пожалуйста, как подключить его к созданному во время работы объекту?

[vovk]

объекту надо назначить процедуру для обработки этого события,

procedure TForm1.FormCreate(Sender: TObject);
begin
Browser:=TWebBrowser.Create(Form1);
....
......
Browser.OnDocumentComplete:=BrowserDocumentComplete;
...
...
end;

к тому же ваше сообшение будет появлятся при загрузке каждого фрейма,

вот пример как Использовать событие OnDocumentComplete у TWebBrowser при наличии фреймов

 procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
   const pDisp: IDispatch; var URL: OleVariant);
 var
   CurWebrowser: IWebBrowser;
   TopWebBrowser: IWebBrowser;
   Document: OleVariant;
   WindowName: string;
 begin
   CurWebrowser := pDisp as IWebBrowser;
   TopWebBrowser := (Sender as TWebBrowser).DefaultInterface;
   if CurWebrowser = TopWebBrowser then
     ShowMessage('Complete document was loaded')
   else
   begin
     Document := CurWebrowser.Document;
     WindowName := Document.ParentWindow.Name;
     ShowMessage(Format('Frame "%s" was loaded', [WindowName]));
   end;
 end;

пример не мой, взял на delphiworld
http://delphiworld.narod.ru/base/wb_...pl_frames.html

[dacorp]

Спасибо большое! Вы мне очень помогли! Буду разбирать!