twebbrowser grösse anpassen

[Rudirabbit]

Hallo !
Lade mit dem Twebrowser Werbebanner (Gif,swf), habe die Scrollbars ausgeblendet (dank den Super Infos hier ).
Nun möchte ich die Eigenschaften Width und Height des Twebbrowser's in Abhänigkeit der Größe des gerade geladenen Banners
anpassen.

Hat jemand einen Tip

vg. Rudi !

[marabu]

Hallo Rudi,

beim Popup mit JavaScript kannst du die Dimensionen mitgeben. Ansonsten sollte es vom Prinzip her so funktionieren:

Delphi-Quellcode:

var
  wb: IWebBrowser2;
  img: IHTMLImgElement;
begin
  with WebBrowser.Document as IHTMLDocument3 do
    img := getElementsByTagname('img').item(null, 0) as IHTMLImgElement;
  with WebBrowser.DefaultInterface do
  begin
    Height := img.height;
    Width := img.width;
  end;
end;

Grüße vom marabu

[Rudirabbit]

Hallo !
@marabu: Danke für den Tip, aber ich lade ja nur ein Gif etc. keine Website
Nach suchen und tüfteln die Lösung:
Da ich nur ein Image drin habe Document.Images.Item(0)

Delphi-Quellcode:

x:= Webbrowser1.OleObject.Document.Images.Item(0).width+20;
y:= Webbrowser1.OleObject.Document.Images.Item(0).height+20;

vg. Rudi