unit20.pas

本程序提供了考试学生系统的原代码函数,并实现了很多程序难实现的功能

unit Unit20;

interface

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

type
  TForm20 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    OpenDialog1: TOpenDialog;
    Memo1: TMemo;
    WebBrowser1: TWebBrowser;
    procedure formcreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form20: TForm20;

implementation

{$R *.dfm}

procedure TForm20.formcreate(Sender: TObject);
begin
memo1.Left:=webbrowser1.Left;
memo1.top:=webbrowser1.top;
memo1.height:=webbrowser1.height;
memo1.width:=webbrowser1.width;
end;

procedure TForm20.BitBtn1Click(Sender: TObject);

var
a,b,c,d:olevariant;
begin
if edit1.Text<>''then
begin
webbrowser1.Visible:=true;
memo1.Visible:=false;
webbrowser1.navigate(edit1.Text,a,b,c,d);
end;

end;

{procedure TForm20.openclick(Sender: TObject);
 var
 a,b,c,d:olevariant;
begin
 if
 opendialog1.Execute then
 edit1.Text:=opendialog1.FileName;
 webbrowser1.Navigate(opendialog1.FileName,a,b,c,d);
end;  }

procedure TForm20.BitBtn5Click(Sender: TObject);
begin
webbrowser1.GoForward;
end;

procedure TForm20.BitBtn4Click(Sender: TObject);
begin
webbrowser1.GoBack;
end;

procedure TForm20.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure TForm20.BitBtn3Click(Sender: TObject);

 var
 a,b,c,d:olevariant;
begin
 if
 opendialog1.Execute then
 edit1.Text:=opendialog1.FileName;
 webbrowser1.Navigate(opendialog1.FileName,a,b,c,d);
end;

end.