FireMonkey 使用Webbrowser

DELPHI XE5 源码PASCAL:http://files.cnblogs.com/xe2011/FireMonkey_Webbrowser.rar

 

为了这个用上webbrowser真是费太大劲了

要让窗体2位置和窗体1的PANEL坐标一致

窗体样式要为none 

Web坐标才会正确

但是fire monkey没有webbrowser控件 这个费了好长时间搞成这样了

现在还有个问题没有处理

 

unit Unit1;

interface

uses
  Windows, Messages, FMX.Platform.Win,
  System.SysUtils, System.Types, System.UITypes, System.Classes,
  System.Variants,
  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
  FMX.Layouts, FMX.Memo;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Panel1: TPanel;
    Button3: TButton;
    Memo1: TMemo;
    Timer1: TTimer;
    Button4: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);

    procedure FormShow(Sender: TObject);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Single);
    procedure Button3MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Single);
    procedure Timer1Timer(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    procedure Form2RePosition;
  public

  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

uses
  UnitX;

var
  Form2: TForm2;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form2 := TForm2.Create(nil);
  Form2.WebBrowser1.Navigate('http://w2i.wanmei.com/launcher/index.htm');
  Form2.AutoSize := true;
  Form2.Show;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
  Form2RePosition;

end;

procedure TForm1.FormShow(Sender: TObject);
begin
  Form2.Width := Round(Panel1.Width);
  Form2.Height := Round(Panel1.Height);
  Form2RePosition;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form2RePosition;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Form2.Visible := not Form2.Visible;

end;

procedure TForm1.Button3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
  ReleaseCapture();
  SendMessage(FmxHandleToHwnd(Handle), WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  WindowState := TWindowState.wsMinimized;
end;

procedure TForm1.Form2RePosition;
begin
  if WindowState = TWindowState.wsNormal then
    begin
      Form2.Left := Round(Form1.Left + Panel1.Position.X);
      Form2.Top := Round(Form1.Top + Panel1.Position.Y);
      SetWindowPos(Form2.Handle, HWND_TOP, 0, 0, 0, 0, SWP_NOSIZE + SWP_NOMOVE + SWP_SHOWWINDOW);
    end
  else
      Form2.Visible := false;
      Form2.Visible:= (WindowState = TWindowState.wsNormal);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  close;
end;

end.

unit UnitX;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.OleCtrls, SHDocVw, Vcl.Imaging.jpeg,
  Vcl.ExtCtrls;

type
  TForm2 = class(TForm)
    WebBrowser1: TWebBrowser;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
    Width:=518;
    Height:=221;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  ShowWindow(Application.handle, SW_HIDE);
  SetWindowLong(Self.handle, GWL_EXSTYLE, GetWindowLong(Self.handle,
    GWL_EXSTYLE) ); // 不在alt+tab中出现
end;

end.