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 :idea:

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