【delphi开源代码栏目提醒】:网学会员delphi开源代码为您提供BackWall_Unit.pas参考,解决您在BackWall_Unit.pas学习中工作中的难题,参考学习。
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.
上一篇:
Form10.frm
下一篇:
试论建设企业信息化提升企业竞争力