backwall_unit.pas

客户关系管理系统 DELPHI7下的

unit BackWall_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg, Buttons, StdCtrls, OleCtrls, SHDocVw;

type
  TfrmBackWall = class(TForm)
    WebBrowser1: TWebBrowser;
    Panel1: TPanel;
    sbtnGo: TSpeedButton;
    Label1: TLabel;
    cmbxURL: TComboBox;
    sbtnForwad: TSpeedButton;
    sbtnBack: TSpeedButton;
    sbtnRefresh: TSpeedButton;
    sbtnStop: TSpeedButton;
    procedure sbtnGoClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure sbtnRefreshClick(Sender: TObject);
    procedure sbtnForwadClick(Sender: TObject);
    procedure sbtnBackClick(Sender: TObject);
    procedure sbtnStopClick(Sender: TObject);
    procedure WebBrowser1DownloadBegin(Sender: TObject);
    procedure WebBrowser1DownloadComplete(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmBackWall: TfrmBackWall;

implementation

uses CRMMain_Unit;



{$R *.dfm}

procedure TfrmBackWall.sbtnGoClick(Sender: TObject);
begin
  if Trim(cmbxURL.Text) <> '' then
    WebBrowser1.Navigate(cmbxURL.Text);
end;

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

procedure TfrmBackWall.FormShow(Sender: TObject);
begin
  WebBrowser1.Navigate(ExtractFilePath(Application.ExeName) + 'index.htm');
end;

procedure TfrmBackWall.sbtnRefreshClick(Sender: TObject);
begin
  WebBrowser1.Refresh;
end;

procedure TfrmBackWall.sbtnForwadClick(Sender: TObject);
begin
  try
    WebBrowser1.GoForward;
  except
  end;
end;

procedure TfrmBackWall.sbtnBackClick(Sender: TObject);
begin
  try
    WebBrowser1.GoBack;
  except
  end;
end;

procedure TfrmBackWall.sbtnStopClick(Sender: TObject);
begin
  WebBrowser1.Stop;
end;

procedure TfrmBackWall.WebBrowser1DownloadBegin(Sender: TObject);
begin
  frmCRMMain.StatusBar1.Panels[2].Text := '正在连接地址：' + WebBrowser1.LocationURL;
end;

procedure TfrmBackWall.WebBrowser1DownloadComplete(Sender: TObject);
begin
  frmCRMMain.StatusBar1.Panels[2].Text := '完成 ' + WebBrowser1.LocationURL;
end;

end.