Abend,

ich zeige in meinem Programm zuzsätzliche Informationen und Bilder in einem kleinen TWebBrowser an, nun würde ich gerne den Inhalt vergrößern / verkleinern können.

Ich habe mal nach TWebbrowser Zoom gesucht, und auch folgendes gefunden:
http://www.delphipraxis.net/internal...ebbrowser+zoom

Nur habe ich hier leider keine zoom-Funktion gefunden (trotz angegeben).

Könnt ihr mir weiterhelfen ?



[edit]tippfehler [/edit]

Vielleicht solltest du dir in der Seite gennante TEmbeddedWB mal genauer anschauen.

Hiho oder

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  //50%
  WebBrowser1.OleObject.Document.Body.Style.Zoom := 0.50;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  //100%
  WebBrowser1.OleObject.Document.Body.Style.Zoom := 1;
end;

{Eine Seite muss bereits in TWebBrowser geladen sein}

//.zoom:=0.25; //25%
//.zoom:=0.5; //50%
//.zoom:=0.75; //75%
//.zoom:=1.5; //100%
//.zoom:=2.0; //200%
//.zoom:=5.0; //500%
//.zoom:=10.0; //1000%

grüsse
capo

Danke für die schnellen Antworten, TEmbeddedWB hab ich mir nicht angeschaut, da er in seinem Beitrag geschrieben hatte, dies bräuchte man nicht.

Die Zoom-Funktion per OleObject reicht vollkommen aus.