?? onlineupdate.~pas
字號:
unit OnLineUpdate;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, BASEWIN, XPMenu, Menus, ActnList, ImgList, TFlatButtonUnit,
ExtCtrls, OleCtrls, SHDocVw, TFlatSpeedButtonUnit, ToolWin, ComCtrls;
type
TOnLineUpdate_frm = class(Tbasewin_frm)
WebBrowser: TWebBrowser;
CoolBar1: TCoolBar;
FlatSpeedButton1: TFlatSpeedButton;
FlatSpeedButton2: TFlatSpeedButton;
FlatSpeedButton3: TFlatSpeedButton;
procedure FormCreate(Sender: TObject);
procedure FlatSpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
OnLineUpdate_frm: TOnLineUpdate_frm;
implementation
{$R *.dfm}
procedure TOnLineUpdate_frm.FormCreate(Sender: TObject);
begin
inherited;
WebBrowser.Navigate('218.75.77.173');
end;
procedure TOnLineUpdate_frm.FlatSpeedButton1Click(Sender: TObject);
begin
Case (sender as TControl).Tag of
1:WebBrowser.GoBack ;
2:WebBrowser.GoForward ;
3:WebBrowser.Refresh ;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -