Revisa que en el uses estes invocando OleCtrls, SHDocVw, StdCtrls.
Ahora en un boton pones:
Código Delphi
[-]
W.OleObject.Document.Body.Style.Zoom := 0.5;
Donde W es el TWebBrowser, y el 0.5 es el nivel de zoom (50%).
Lo puedes poner en un TTrackBar:
Código Delphi
[-]
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
W.OleObject.Document.Body.Style.Zoom := TrackBar1.Position/10;
end;
Propiedades del TTrackBar:
Código Delphi
[-]
object TrackBar1: TTrackBar
Left = 80
Top = 416
Width = 150
Height = 45
Max = 100
Min = 1
Position = 10
TabOrder = 3
OnChange = TrackBar1Change
end
Con esas propiedades y el codigo que te pongo, el TrackBar Permite cambiar el zoom desde el 1% hasta el 1000%.
Espero te funcione.