EmbeddedWB DocumentComplete?

[gandime]

Hi,
die Procedure EmbeddedWBDocumentComplete wird ja ausgelöst wenn ein Frame fertig geladen ist bei dem Webbrowser habe ich ich diesen Code verwendet:

Delphi-Quellcode:

var
  WindowName:string;
  ol:OleVariant;
  CurWebBrowser:IWebBrowser;
  TopWebBrowser:IWebBrowser;
begin
  CurWebBrowser:=pDisp as IWebBrowser;
  TopWebBrowser:=(ASender as TWebBrowser).DefaultInterface;
  if CurWebBrowser=TopWebBrowser then
  begin
    s_wb:='main';
  end
  else
  begin
    ol:=CurWebBrowser.Document;
    WindowName:=ol.ParentWindow.Name;
    if (WindowName='Hauptframe') then
    begin
      s_wb:='sub';
    end;
  end;

blos bei dem EmbeddedWB gibt es kein DefaultInterface wie soll ich es sonst machen?

mfg
gandime

[toms]

Zitat von gandime:

Hi,

blos bei dem EmbeddedWB gibt es kein DefaultInterface wie soll ich es sonst machen?

mfg
gandime

Hallo

Bei TEmbeddedWB gib't schon ein DefaultInterface Property.

EmbeddedWB1.DefaultInterface ...

[gandime]

ich hab den Fehler gefunden!
man darf nicht SHDocVw und SHDocVw_EWB in den uses stehen haben