Android实例-利用WebBrowser实现浏览器(XE8+小米2)

结果：

1.网络好的情况下，打开很快，很流畅。

2.地址栏真心不好使，如果真要做应用，这块必须自己优化一下。

实例代码：

 unit Unit1;

 interface

 uses
   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
   FMX.Edit, FMX.Controls.Presentation, FMX.WebBrowser;

 type
   TForm1 = class(TForm)
     WebBrowser1: TWebBrowser;
     ToolBar1: TToolBar;
     Edit1: TEdit;
     Button1: TButton;
     Button2: TButton;
     Button3: TButton;
     StatusBar1: TStatusBar;
     procedure Button1Click(Sender: TObject);
     procedure Edit1KeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
       Shift: TShiftState);
     procedure Button2Click(Sender: TObject);
     procedure Button3Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

 var
   Form1: TForm1;

 implementation

 {$R *.fmx}
 {$R *.NmXhdpiPh.fmx ANDROID}

 //打开网页
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   WebBrowser1.URL := Edit1.Text;
 end;

 //返回
 procedure TForm1.Button2Click(Sender: TObject);
 begin
   WebBrowser1.GoBack;
 end;

 //前进
 procedure TForm1.Button3Click(Sender: TObject);
 begin
   WebBrowser1.GoForward;
 end;

 procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
   Shift: TShiftState);
 begin
   if Key = vkReturn then
   begin
     //当按下按钮时，隐藏输入键盘并把焦点移动到 btnGO 上。
     WebBrowser1.URL := edit1.Text;
     Button1.SetFocus;
   end;
 end;

 end.