navigatorfm.pas.~7~

一款房产中介软件

unit NavigatorFM;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StrUtils;

type
  TfrmNavigator = class(TForm)
    wb1: TWebBrowser;
    procedure FormShow(Sender: TObject);
    procedure wb1BeforeNavigate2(ASender: TObject; const pDisp: IDispatch;
      var URL, Flags, TargetFrameName, PostData, Headers: OleVariant;
      var Cancel: WordBool);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmNavigator: TfrmNavigator;

implementation

uses Globe;

{$R *.dfm}

procedure TfrmNavigator.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  frmNavigator := nil;
end;

procedure TfrmNavigator.FormShow(Sender: TObject);
begin
  Self.Width := 800;
  Self.Height := 600;
  wb1.Navigate(Path + 'HSNvgt1001\index.htm');
end;

procedure TfrmNavigator.wb1BeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  if StrUtils.ContainsStr(URL, 'SHOWFORM') then
  begin
    ShowMessage(URL);
    Cancel := True;
  end;
  
end;

end.