uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ActiveX, AxCtrls, ActiveFormProj1_TLB, StdVcl, StdCtrls, OleCtrls,
SHDocVw;
var
SP:IServiceProvider;
IE:IWebbrowser2;
procedure TActiveFormX.Button1Click(Sender: TObject);
begin
SP := ActiveFormControl.ClientSite as IServiceProvider;
SP.QueryService(IWebbrowserApp, IWebbrowser2, IE);
IE.FullScreen:=true;
end;
procedure TActiveFormX.Button2Click(Sender: TObject);
begin
IE.Fullscreen:=false;
IE.MenuBar:=true;
IE.ToolBar:=1;
end;