unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ShellCtrls, ExtCtrls, Menus, StdCtrls, Buttons,SHDocVw,
RzGroupBar;
type
TWebPage = class(TTabSheet)
private
NewTabSheet : TTabSheet;
NewWeb:TWebBrowser;
public
constructor Create(AOwner: TPageControl; WebAddress: string);
destructor Destroy; override;
end;
TMainfrm = class(TForm)
Splitter1: TSplitter;
StatusBar1: TStatusBar;
Panel2: TPanel;
edWeb: TEdit;
PageControl1: TPageControl;
Button1: TButton;
procedure edWebKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
procedure OpenWeb(WebAddress: string);
end;
var
Mainfrm: TMainfrm;
implementation
{$R *.dfm}